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SpeedScript  80 

Our  powerful,  full-featured  80-column  word 
processor  riow  for  Apple  lie,  lie,  and  IIGS 


Menu  Planner 

Plan  meais  efficiently  with  this 
easy-to-use  program  for  the 
Commodore  64,  IBM  PC/PCjr, 
Apple,  SL  Amiga,  and  Atari 

Hyperscan 

Stunning,  high-speed  graphics 
for  the  Commodore  64 
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SO  REAL  IT  HURTS 

GFL  Championship  Football™ 

The  way  computer  football  should  be. 
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Other  football  games  put  you  in  the  grandstands, 
looking  down  on  the  action.  Now  see  what  it's  like 
from  the  player's  perspective — looking  out  of  your 
helmet  at  an  angry  linebacker  headed  straight  for 
you,  and  no  blockers  in  sight. 

With  GFL  Championship  Football,™  you've  got 
the  first  football  simulation  that  actually  takes  you 
down  on  the  field,  taking  the  hits  and  making  the 
plays.  And  it's  more  than  just  a  pretty  picture — 
you  really  get  the  feel  oi playing  football. 

No  other  football  simulation  gives  you  so  many 
features: 

•  Iii-the-helmet  perspective  puts  you  at  ground 
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FOOTBALL 
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level  on  the  playing  field. 

•  Scroliing-screen  animation  moves  you  up  and 
down  the  playing  field. 

•  Realistic  sound  effects  let  you  hear  everything 
from  the  quarterback  calling  the  signals  to  the 
sound  of  your  own  footsteps. 

•  Team  selection  screens  allow  you  to  set  the  play- 
ing style  of  your  team  and  that  of  your  opponent. 

Whether  you're  taking  on  bone-crunching  action 
against  a  friend,  or  going  up  against  any  of  the  27 
computer-controlled  teams  in  the  GFL,  this  is  the 
one  that  puts  you  where  the  action  is! 


Available  now  for  the  Commodoie  64/128, 
IBM  PC  and  Tandy  1000,  Apple  11,  Amiga.  Atari  ST  and  100%  compatible  computers. 
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Commodore  64-128  Mxeen 


Commodore  64-L28  scnivn 
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At  last!  DOME... 

America's  favorite  bookkeeping 
system  rxms  on  your  computer. 


Now  the  popular  DOME  bookkeeping  sj'stem  is  easier  and  quicker 
to  use  than  ever,  tjirougii  the  power  of  your  IBM,  Apple, 
Commodore  or  Tandy  computer, 
it  works  just  like  the  familiar  DOME  record  book  used  by 
millions  of  people  for  over  forty  years.  Just  enter  receipts  and 
expenses  on  each  "page"  on  the  screen.  You  can  even  turn 
the  pages  back  to  look  at  prior  weeks  or  months.  And  you  an 
erase!  No  more  smudges,  no  more  cross-outs.  Just  clear,  error- 
free  entries  for  all  your  transactions, 

The  entire  DOME  book  on  a  single 
diskette! 

In  a  simple  format  DOME  includes  a  complete  system  for 
business  and  tax  recordkeeping;  income,  expenses,  payroll  and 
financial  reports.  Plus,  exclusive  "pop-up"  accessories  appear 
on  your  screen  with  a  single  keystroke:  a  calculator,  notepad, 
list  of  accounts  and  even  a  perpetual  calendar. .  .everything 
you  need  to  maintain  a  set  of  books  and  business  records 
for  a  full  year. 

And  not  only  does  DOME  keep  your  records  but  it 
will  help  you  analjfze  them  with  powerful  reprt- 
ing  capabilities. 

Reports  you  always  wished  you  had. 

Look  up  or  list  every  expense  for  the  past  year,  month 
or  day.  You  can  do  if  by  payee  or  account.  Analyze 
income  by  product  or  service.  If  }'ou  have  employees, 
DOME  will  help  when  941  and  \V-2  forms  are  due. 
And  print  weekly  or  monthly  financial  statements 
showing  profit  or  loss. 

Sets  up  in  less  than  10  minutes! 

Because  DOME  is  based  on  the  familiar  DOME  book,  you 
already  know  how  to  use  it!  Save  time  setting  up,  save  time 
learning  and  save  time  each  week-because  DOME  does  all  the 
addition  for  you  with  complete  accurac)'.  All  you  do  is  enter 
your  income  and  expenses,  and  let  DOME  do  the  resti 

Try  it  yourself  for  15  days 
without  obligation! 


Syaero  Raq;  IBM  PC.  XT.  AT  or  compalibles.  3561t; 
Apple  He.  ilc;  Commodofe  64.  128;  Tandy  1000. 1200. 
3000.  2Mk.  Printer  optional. 


$39 


95 


Complete  and  mail  the  coupon  or 

CALL  TOLL  FREE 
1-800-528-5015 

and  charge  it  to  your  credit  card! 


YES! 


Please  send  me  DOME  Accounting  By  Cotnpuier.  If  1  ain 
[  not  completely  satisfied.  I  may  return  it  within  15  days  lor 
a  full  and  prompt  refund. 

niBMS39,95  D  Apple  S39.95  0  Commodore  S39.95  D  Tandy  S39.95 
D  Payment  enclosed  Charge  my     DVisa     D  MC 

(plus  SI  .50  shippingi  (plus  SI  .51)  shipping' 
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Great  American  Software,  Inc. 

I       9  Columbia  Dr. 'FO  Box  910,  Amher,st,NH  03031*  1603)  889-MOO       I 

IBM.  Apple.  Commodore,  and  Tandy  are  regjseied  iridemarks  of  Iniemaiiofial  Busings  Machines.  Inc.,  Apple 
Cocnputer.  Inc..  Cbfrtmodore  Business  Macnines.  Inc..  ind  Tandy  R^io  Shact  Computers,  nspsctndly, 

DOME*  Publishing,  Warwick.  RI 


Best  Selling  Word  Processing  Package" -billboard  scompihtr  software  chart* 


PAPERCLIP  II 

FOR  THE  COMMODORE  128  ^^^\ 

■  Compatible  with  C-64  Paperclip  files:  the     i^  '"'' 
natural  choice  for  C- 128  upgrades  0**  ' 

■  Includes  integrated  38,000-word  spelling 
checker 

■  Built-in  telecommunications  module:  access 
on-line  services,  incorporate  on-line  data  in  your 
work,  and  send  text  to  other  users 

■  New  editing  features  include  multiple  columns, 
reverse  video  scroll,  chaptering,  powerful  macros 

■  Maximum  document  size  expanded  to 
999  lines 

PAPERCUP  FOR  THE  APPLE  Ik,  c 

■  Insert/Delete,  Move  &  Copy,  Cut  &  Paste,         ,t 
Global  Search  &  Replace  *f0  '• 

■  Automatic  page  numbering,  headers  and     i,,,  ^'' 
footers  Qt^yl 

■  Simplified  columns,  tabbing  and  scrolling 

■  Form  letter  and  mailing  label  functions 

■  Unique  new  capabilities  for  Apple:  dual  text 
windows,  automatic  text  protection,  macro 
commands  and  more 

PAPERCLIP 

FOR  ATARI  HOME  COMPUTERS 

(WTTHSPELLPACKFOR  THE  130  XE) 

■  All  the  high-productivity  editing  features  plus: 
Dual  Text  Windows,  Automatic  Paging,  Macros 
and  much  more 

■  Fully-integrated  SpellPack  spelling  checker  on 
the  same  disk 

■  36000  words  in  the  SpellPack  dictionary  plus 
you  can  add  thousands  more 

■  Memory-resident  for  speed  and  convenience: 
no  need  to  quit  the  word  processor  to  check 
a  document 

PAPERCUP  with  SPELLPAK 
FOR  THE  COMMODORE  64 

■  Built-in  spelling  checker 

■  All  the  high- productivity  text  editing  features 

■  Move,  Copy,  Insert,  Delete  —  words,  sentences 
or  entire  blocks  of  text 

■  Macro  power:  define  &  store  up  to  52 
repetitive  words/ phrases,  then  enter  them  with 
just  one  keystroke 

■  Includes  80- column  Print  Preview  display, 
requires  no  extra  hardware 

■  Sophisticated  Global  Search  &  Replace,  Mail 
Merge  and  Mailing  Label  functions 

PAPERCUP  ELITE  FOR  THE  ATARI  ST 
and  COMMODORE  AMIGA 

■  Go  beyond  word-processing,  with  idea 
processing,  text/graphics  integration,  real-time 
spell  checKjng,  independent  variable  columns  and 
so  much  more.  Look  for  PaperCIip  Elite. 
Coming  soon. 


"you  can't  go  wrong  choosing  Paper  Clip" 

-  THE  GUIDE  TO  COMPUTER  LIVING 

"the  Cadillac  of  word  processors." 

-  OMNI  MAGAZINE 

"best  professional  word  processor  available" 

-RUNIVIAGAZJNE 

"by  far  the  best  word  processor  ever  available 

...So  clearly  superior, . . .  State-of-the-art 

word  processing" 

-ANTIC 

"as  far  as  we  are  concerned.  PaperCIip  is  the 
top  word  processor  running  on  a  micro 
computer." 

-  HOME  APPLICATIONS  FOR  THE  C-64 

"Performance:  excellent  Error-handling: 
excellent  Value:  excellent . .  You'll  find 
yourself  growing  spoiled. " 

-  FAMILY  COMPLTING 
"Exceptional  word  processing .." 

-INPUT 

"many  features . . .  easy  to  use" 

-  ATARI  EXPLORER 

"A  superb  word  processor  ...the  most 
sophisticated  to  date." 

-  COMPUTE  MAGAZINE 

"...  the  ultimate  word  processor 

-  ANALOG  MAGAZINE 

"One  of  the  easiest  of  the  professional  word 
processors  ...a  sensible  manual . . ,  plenty  of 
aids  for  the  accident  prone. " 

-  COMPUTING  NOW 

"An  excellent  word  processor . . .  well 
designed . . .  many  advanced  features. " 

-  INFOWORLD 

"a  "must  have" in  an  ideal  software  library" 

-  ELECTRONIC  LEARNING 

"...  most  powerful  of  packages" 

-  COMMODORE  MAGAZINE 

"PaperCIip  is  a  logical  evolutionary  step 

forward." 

-AHOY 

"...  facts  attest  to  its  excellence!" 

-  FAMILY  COMPUTING 


BATTERIES 
INCLUDED 
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reluming  llic  original  disk  and  SIO.OO.  Write  !o  u»  for  our  full  coiorcalalog  of  producls  (or  Ihe  APPLE.  APPLE  M^CLVTOSH.  ATARI,  ATARI  ST, 

COMMODORE,  COHMODORi;  .A-MIGA.  AND  IBM  SYSTT.VK. 
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Editor's  Notes 


Computerization,  like  industrialization 
and  other  great  cultural  shifts,  is  perme- 
ating all  facets  of  society.  Few  aspects  of 
modern  life  will  remain  untouched. 
Here  at  COMPUTE!  the  change  has 
been  both  swift  and  dramatic. 

When  COMPUTE!  started  six  years 
ago,  we  were  doing  most  of  our  writing 
on  typewriters  and  had  only  one,  early- 
microcomputer  word  processor.  But 
within  two  years  we  had  moved  almost 
exclusively  to  word  processing. 

We  were  among  the  many  journal- 
ists who  abandoned  the  traditional 
typewriter  in  the  first  half  of  this  de- 
cade. Still,  because  our  articles  pass 
through  many  hands — general,  techni- 
cal, copy  editing,  typesetting,  and  so 
on — we  didn't  pass  disks  around  with 
the  articles  on  them.  Instead,  an  article 
was  printed  out  and  the  paper  copy  was 
then  edited  by  the  several  editors. 

After  the  pen-and-paper  editing 
phase,  the  article  was  then  typeset.  This 
meant  that  it  had  to  be  retyped  into  a 
machine  which  could  produce  magazine- 
quality  print.  It  also  meant  an  extra 
opportunity  for  errors  to  creep  in,  so  the 
copy  had  to  be  proofread  after  it  came 
out  of  the  typesetting  machine. 

Now,  however,  the  days  of  paper 
editing  are  long  gone  for  us  and  many 
other  publications.  Today,  most  articles 
are  edited  entirely  on  our  networked 
word  processing  system.  Most  authors 
send  in  a  paper  (or  disk)  copy  of  their 
submission.  If  the  article  is  selected  for 
publication,  it  is  then  typed  (or  upload- 
ed) into  our  system,  where  it  moves 
from  screen  to  screen  around  the  build- 
ing until  it  is  finally  ready  to  be  sent  to 
the  printer. 

Our  editing  system  is  similar  to  or- 
dinary word  processors,  but  includes  ad- 
ditional features  which  make  it  easy  for 
articles  or  memos  to  be  transmitted  from 
one  editor  to  another.  There  are  built-in 
safeguards  against  crashes,  power  out- 
ages, and  accidental  deletions.  We 
haven't  lost  any  copy  in  the  three  years 
we've  been  using  the  system,  which  is 
more  a  testament  to  the  computer  sys- 
tem than  to  our  collective  caution. 

Since  it  must  serve  a  variety  of 
purposes,  the  "editing  processor"  key- 
board has  134  keys  instead  of  the  usual 
60  on  a  typewriter  or  computer  key- 


board. If,  for  example,  you  press  the 
H&J  (Hyphenate  &  Justify)  key  by  acci- 
dent, your  article  will  suddenly  seize  up 
and  reformat  into  a  single,  magazine- 
size,  column.  (Fortunately,  you  can  un- 
H&J  quickly.)  Also,  there  are  dedicated 
keys  to  define  blocks,  sentences,  words, 
and  characters,  and  keys  to  move,  copy, 
or  delete  these  units  as  well.  A  first  look 
at  the  huge  keyboard  is  daunting.  You 
suspect  you'll  never  master  it.  There  are 
actually  far  more  than  134  keys,  since 
each  key  can  be  shifted,  supershifted, 
and  even  supershift-shifted.  Thus,  each 
of  the  134  keys  can  perform  as  many  as 
four  different  functions. 

Fortunately,  most  of  the  writing 
and  editing  is  accomplished  in  the  same 
way  it  would  be  on  a  less  formidable 
word  processor.  Nested  in  the  center  of 
the  huge  keyboard  are  the  familiar 
typewriter  keys.  And,  after  a  little  prac- 
tice, we've  all  learned  to  reach  for  the 
supershift  key  when  necessary. 

And  the  advantages  of  the  system 
are  considerable.  Some  of  our  authors 
and  columnists  send  copy  directly  to 
our  system  memory  via  modem.  When 
visiting  computer  shows  in  Chicago  or 
California,  our  feature  writers  type  late- 
breaking  stories  into  lap  portables,  call 
us  from  their  hotel  phones,  and  their 
copy — sounding  like  a  high-pitched 
scream — enters  the  terminals  here  at 
the  office  in  North  Carolina.  These  are 
crack  feature  writers,  so  a  story  some- 
times flows,  largely  unchanged,  onto 
the  printed  page  where,  for  the  first 
time,  it  becomes  paper  and  ink. 

Since  from  start  to  finish  our  arti- 
cles are  in  electronic  mass  memory,  the 
possibilities  of  introducing  various 
kinds  of  typographical  and  transcrip- 
tion errors  is  greatly  reduced.  Even 
something  as  simple  as  passing  an  arti- 
cle around  is  now  far  more  efficient. 

Our  book  division,  too,  has  wel- 
comed the  new  system  because  an  entire 
book  can  be  online  at  once  and  even 
copied  to  more  than  one  editor  simulta- 
neously. There's  also  a  feature  which 
shows  what  changes  have  been  made  to 
the  copy  so  that  the  original  can  be 
compared  to  the  edited  version.  If  neces- 
sary, editing  can  be  selectively  removed. 

Also,  we're  currently  experiment- 
ing with  digitizing  dravvings,  photos, 


and  charts.  This  will  result  in  more 
flexibility  and  more  options  with  the 
graphics  in  our  publications.  Even  pro- 
gram listings  will  soon  be  electronically 
reproduced  instead  of  photographed 
from  paper  printouts  as  they  are  now. 
Ultimately,  every  page  of  a  magazine 
will  be  edited,  composed,  and  pro- 
duced— from  the  original  story  idea  to 
the  final  layout — entirely  on  video 
screens  with  computer  assistance. 

COMPUTE!  Publications,  as  you 
might  imagine,  is  among  those  compa- 
nies welcoming  the  tremendous  advan- 
tages offered  by  computerization. 

Richard  Mansfield 
Editorial  Director 


COMPUTE!  Publications,  Inc.  is 
seeking  a  Features  Editor  and 
Assistant  Book  Editor  to  join  its 
staff. 

Features  Editor— Requires 
college  degree  in  journalism, 
English,  communications,  or  re- 
lated field  which  emphasizes 
writing;  three  years  experience  in 
journalism;  some  experience  with 
microcomputer  industry  desirable. 

Assistant  Book  Editor — Requires 
knowledge  of  computer  program- 
ming. Undergraduate  degree  in 
English  or  related  field.  Two 
years  writing  and  editing 
experience. 

Send  resume  and  salary  history 
in  complete  confidence  to: 

Personnel  Director 
COMPUTE!  PublicaHons,  Inc. 
P.O.  Box  5406 
Greensboro,  NC  27403 


4     COMPUTEt      April  1987 


The  follow- 
ing programs 
are  brought  to 
you  by  an  incredi- 
ble series  of  events. 
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ming, 
diving, 
gymnas- 
tics and 
skeet 
shooting, 
just  to  name  a  few. 

There's  its  equally 
acclaimed  sequel,  Sum 


Sumo  wrsstUtig, 
A  Spori  of  ritual  aJid  tradition. 


Gytmiastics.  A 

graci'.fui  dispkty  of  balance, 

poiic  ami  (r/ricFTttratidtt, 


Tlic  Bobsled. 

One  wrong  rrnnv  and  it's 

right  down  the  tube. 


the  hot  dog  aerials.  And 
beg  for  mercy  in  the 
Biathlon.  And  coming 


mi 
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Over  30 
of  them, 
to  be 
specific. 

They're 
the  unfor- 
gettable 
events  of 
our  best-sell- 
ing Games 
series. 

First,  World 
GamesT  Eight 
international 
events  rang 
ing  from 
Sumo  wres- 
tling to  cliff  diving. 
Bull  riding  to  weight- 
lifting.  Even  skiing  the 
Chamonix  slalom. 

There's  our  enor- 
mously popular 
Summer  Games. 
Break  records  in 
track, 
swim- 


mer Games  IL"  Go  for 
the  gold  in  rowing,  cy- 
cling, equestrian,  fenc- 
ing, the  high  jump,  the 
triple  jump,  to.yatdng, 
and  more. 
Finally 
there's 
the  icy 
challenges 
of  Winter 
GamesT  Wait'll  you 
careen  the  tube  m  a  bob- 
sled. Fly  the  ski  jump.  Or 
choreograph 
an  entire  fig- 
ure skating 
routine.  You'll 

;  Hide  a  bttckitig  hull  *^ 


Cliff  Diving.  InAcapuko. 
evetyime  falk  for  it. 


nextsummer,our/ 
newest  Games 
program.  (Bet- 
ter  get  ready 
to  hit  the 


beach.) 

Now,  it 
may  seem 
lot  to  handle 

But  don't 
world  events 
get  the  best 
of  you, 
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SUPPORT  FROM  COMPUTE!  BOOKS 


Everything  for  the  Amiga.  From  BASIC  beginner's  guides  to  advanced  programming 
handbooks,  COMPUTE!  offers  you  Information-packed  tutorials,  reference  guides, 
programming  examples,  ready-to-enter  applications,  and  games  to  help  you 
develop  your  computing  skills  on  Commodore's  Amiga. 
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COMPUTEi's  AmlgaDOS 
Reference  Guide 

Arian  R.  Levitan  and  Sheldon  Leemon 
A  comprehensive  tutorial  and  reference  guide 
to  ihe  powerful  AmigaDOS — the  operating 
system  underlying  the  Workbench  and 
Intuition— this  book  offers  information  useful  to 
every  Amiga  owner,  It  defines  and  illustrates  all 
DOS  commands,  and  shows  you  how  to  create 
liie  directories,  access  peripherals,  run  batch 
file  programs,  and  avoid  "disk  shuffle."  The 
screen-  and  line^oriented  text  editors  are 
explained  in  detail-  Numerous  examples  and 
techniques  explain  how  to  use  AmlgaDOS  to 
make  operating  your  Amiga  both  convenient 
and  efficient. 
SI 6.95    ISBN  0-87455-047-5 

Elementary  Amiga  BASIC 

C.  Regena 

Here's  your  introduction  to  the  new  and 
powerful  BASIC  on  the  Amiga  personal 
computer.  The  Amiga's  impressive  graphics, 
animation,  and  sound  can  be  unlocked  with  the 
fight  commands,  and  BASIC  is  the  place  to 
start.  Complete  descriptions  of  Amiga  BASIC'S 
commands,  syntax,  and  organization  take  you 
from  the  beginner  level  to  a  full-fledged 
programmer.  Plus,  the  book  offers  you  ready-to- 
type-In  programs  and  subroutines  while 
showing  you  how  to  write  your  own  programs. 
There  is  a  disk  available  which  includes  the 
programs  in  the  book,  $12.95.  This  title  is  also 
available  as  a  book/disk  combination  (or  S29.95 
(057-2). 
$  1 4.95     ISBN  0-87455-04 1  -6 


COMPUTEI's 


PROGRAMMER'S 
GUIDE 


COMPUTEI's  Amiga 
Programmer's  Guide 

Edited 

Your  tutorial  and  reference  manual  to 
AmlgaDOS,  BASIC,  Intuition,  and  other 
Important  software  tools  which  accompany  the 
new  Amiga.  COMPUTEI's  Amiga  Programmer's 
Guide  Is  a  clear  and  thorough  guide  to  the 
inner  workings  of  this  fascinating  new- 
generation  computer.  The  great  speed  of  Its 
68000  microprocessor,  coupled  with  the 
versatility  of  the  Amiga-specific  graphics  and 
sound,  makes  the  Amiga  one  of  the  most 
powerhjl  computers  available  today 
This  book  is  the  key  to  accessing  the  Amiga's 
speed  and  power, 
SI 7.95    ISBN  0-87455-O28-9 

AdvaiTced  Amiga  BASIC 

Tom  R.  Halfhill  and  Charles  Brannon 
This  guide  to  applications  programming  on 
Commodore's  new  Amiga  contains  everything 
an  intermediate  programmer  requires  to  begin 
creating  sophisticated  software  on  this  powerhji 
machine,  including  several  ready-to-type-ln 
programs.  Clear,  yet  comprehensive 
documentation  and  examples  cover  advanced 
BASIC  commands,  designing  graphic 
applications,  generating  sound  and  music,  using 
the  Amiga's  built-in  speech  synthesizer, 
creating  a  user  interface,  and  programming  the 
computer's  peripherals.  There  is  a  disk 
available  which  includes  the  programs  in  the 
book.  SI 5.95.  Ilune  releasel 
SI 7.95     ISBN  0-87455-045-9 


COMPUTETs 

GUIDE  TO  THE 


Look  for  these  books  at  your  local  book  or  computer  store. 

Or  order  directly  from  COMPUTE!. 

Call  toll-free  1-800-346-6767  (in  NY  212-887-8525). 


COMPUTEI's  Beginners  Guide  to 
the  Amiga 

Dan  McNeill 

Written  in  a  lively  and  entertaining  style,  this 
book  teaches  you  everything  a  beginner  needs 
to  know  to  get  started  quickly  with  the  Amiga 
from  Commodore.  You  will  learn  about  setting 
up  the  system,  all  the  most  popular  types  of 
software,  and  details  about  the  hardware. 
516.95     ISBN  0-87455-025-4 

inside  Amiga  Graphics 

Sheldon  Leemon 

The  Amiga,  Commodore's  powerful  new 
computer,  is  an  extraordinarily  Impressive 
graphics  machine.  Easy  to  use.  the  Amiga  can 
produce  color  graphics  and  excellent  animation. 
You'll  find  thorough  descriptions  of  the 
computer's  abilities  and  the  hardware  required 
to  create  a  complete  graphics  system.  Software, 
too,  is  central  to  the  Amiga's  power,  and 
complete  tutorials  show  you  how  to  get  the 
most  from  the  machine,  (lune  releasel 
S 1 7.95     ISBN  0-87455-O4O-8 

COMPUTEI's  Kids  and  the  Amiga 
Edward  H.  Carlson 

The  latest  in  this  bestselling  series  written  by 
Edward  Carlson,  COMPUTE'.'s  Kids  and  the 
Amiga,  will  acquaint  you  with  BASIC.  Over  30 
sections — all  with  instructor  notes,  lessons, 
assignments,  and  lively  illustrations — entertain 
and  amuse  you  as  you  learn  to  program  your 
new  computer.  Clear  writing  and  concise 
examples  make  it  easy  for  anyone— children 
and  adults  alike — to  painlessly  learn  BASIC. 
(May  release) 
$14.95     ISBN  0-87455-048-3 

Please  allow  4-4  weeks  for  delivery 
after  your  order  Is  received. 
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COMPUTE!  books  are  available  in  Canada  from  McGraw-Hill.  Ryerson 
Ltd..  330  Progress  Ave.,  Scarborough,  Ontario,  Canada  MIP  2Z5. 
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Readers  Feedback 


rhe  Editors  and  Reoders  of  COMPUTE! 


If  i/ou  have  any  questions,  comments,  or 
suggestions  you  would  like  to  see  ad- 
dressed in  this  column,  write  to  "Readers' 
Feedback,"  COMPUTE!,  P.O.  Box  5406, 
Greensboro,  NC  27403.  Due  to  the  volume 
of  mail  we  receive,  we  regret  that  we 
cannot  provide  personal  answers  to  tech- 
nical questions. 


Computer  Laryngitis 

[  own  an  older  model  of  Atari,  the 
1200XL,  As  advertised  when  I  bought 
it,  the  computer  was  said  to  have  a 
voice  synthesizer,  However,  I  have  not 
been  able  to  use  it.  Do  I  have  to  use 
some  special  software  or  can  I  get  voice 
synthesis  from  BASIC?  Also,  can  the 
synthesizer  sing? 

Chris  Macy 

The  IZOOXL  was  the  first  of  the  XL  line  of 
Atari  computers.  Although  it  featured  a 
few  new  innovations  over  the  Atari  800,  it 
did  not  meet  with  wide  consumer  accep- 
tance and  was  discontinued  within  a  year 
of  its  introduction.  The  800XL  and  600XL 
became  the  new  high-  and  low-end  ma- 
chines, respectively.  For  a  while.  Atari 
planned  to  introduce  computers  called  the 
UOOXL  and  the  1450XLD.  Both  of  these 
models  were  supposed  to  offer  easy-to-use 
speech  synthesis.  Before  the  1450XLD  was 
finally  canceled,  the  designers  were  plan- 
ning to  route  the  speech  through  the  AMY 
sound  chip  (which  now  may  show  up  as  an 
enhancement  for  the  ST  line),  allowing  the 
computer  to  "sing."  Unfortunately,  the 
1450XLD  (and  the  65XEM,  another  com- 
puter  designed  to  use  the  AMY  chip)  never 
made  it  to  the  store  shelves. 

At  present,  the  Amiga  is  the  only 
home  computer  which  includes  built-in 
speech  synthesis.  Although  speech  is  not 
built  into  your  computer,  hardware  and 
software  speech  synthesizers  are  sold  for 
the  Atari  computer  line  and  other  ma- 
chines, as  well.  We've  even  seen  a  limited 
but  functional  public  domain  speech  syn- 
thesizer for  the  Atari  ST. 

As  a  technical  matter,  it's  actually 
somewhat  easier  to  make  a  computer  sing 
than  it  is  to  make  it  talk:  It  is  simpler  to 
create  a  steady  musical  tone  than  is  to 
produce  the  extremely  complex  sounds 
that  make  up  human  speech.  Some  elec- 
tronic music  synthesizers  caii  generate  a 
passable  imitation  of  a  human  voice  tone, 


but  none  of  them  can  talk. 

As  a  practical  matter,  speech-specific 
voice  synthesizers  don't  sing  very  well. 
Just  for  fun,  one  of  our  programmers  spent 
some  time  trying  to  make  the  Amiga's 
built-in  speech  synthesizer  sing  "Happy 
Birthday,"  using  the  syyithesizer's  pitch 
controls  to  change  from  one  note  to  anoth- 
er in  Amiga  BASIC.  The  results  were 
amusing,  but  not  very  satisfactory.  Spoken 
words  require  sounds  (known  as  pho- 
nemesj  that  change  in  complicated  ways 
over  very  short  time  periods.  Since  speech 
phonemes  aren't  designed  for  music,  they 
don't  sound  convincing  in  a  song,  even  if 
you  change  the  pitch  to  produce  different 
notes.  It's  possible,  of  course,  to  have  a 
voice  synthesizer  that  handles  both  speech 
and  music,  but  that  capability  would  have 
to  be  built  into  the  program. 


Keyboard  Poliing  in  ST 
BASiC 

Is  there  a  way  to  make  the  Atari  ST 
respond  to  a  string  input  immediately 
in  ST  BASIC?  I  know  how  to  use  INP, 
but  the  computer  waits  for  the  input 
before  going  to  the  next  line.  I  would 
like  the  program  to  continue  whether  or 
not  a  key  was  pressed.  What  command 
or  PEEK  should  I  use? 

Jamieson  Schulte 

This  IS  one  of  those  happy  occasions  where 
a  question  from  one  reader  is  answered  by 
another  reader.  If  you  experiment  with 
the  PEEK  mentioned  by  Mr.  Honzik  be- 
low, you'll  discover  that  when  no  key  is 
pressed,  a  negative  value  is  returned  (the 
number  varies,  but  it's  always  negative, 
unless  the  mouse  is  moved).  Positive  val- 
ues mean  a  key  is  being  held  down.  If  you 
divide  this  number  by  256,  you'll  see  a 
value  that  indicates  the  position  of  the  key 
being  pressed.  The  letters  Q,  W,  E,  R,  T 
and  Y  are  numbered  consecutively  be- 
cause they're  laid  out  in  that  order  on  the 
keyboard. 

It  is  well  known  that  the  INKEY$  func- 
tion is  missing  from  ST  BASIC  and  that 
the  statement  A =INP(2)  is  an  adequate 
substitute  in  many  cases.  But  when  you 
wish  to  poll  the  keyboard  and  go  on  if 
no  key  is  pressed,  the  INP  function 
does  not  work.  I've  found  that  PEEKing 
&HFFFC02  will  return  a  unique  value 


for  each  depressed  key,  thus  making 
polling  possible. 

Bill  Honzik 


Deieting  Appie  Documents 

I  own  an  Apple  11+  with  a  single  disk 
drive.  I  also  own  SpeedScript  3.0,  which 
I  use  often  for  word  processing.  How 
can  I  erase  an  unwanted  letter  or  other 
document  which  I  have  accidentally 
stored  on  my  SpeedScript  disk?  In  some 
cases  I  have  accidentally  stored  the 
same  document  under  two  or  even 
three  slightly  different  titles.  This 
usually  occurs  after  I  load  a  stored  doc- 
ument, make  a  few  corrections,  then 
save  it  using  an  incorrect  name. 

Donald  Wilmot 

COMPUTERS  popular  SpeedScript  word 
processing  program  for  the  Apple  doesn't 
have  a  built-in  commaitd  for  deleting 
files,  but  you  can  easily  remove  unwanted 
SpeedScript  documents  with  BASIC'S 
DELETE  cofnmand.  Boot  the  computer 
with  a  DOS  disk  (don 't  load  SpeedScript), 
then  enter  Applesoft  BASIC.  At  a  BASIC] 
prompt,  enter 

DELETE  filename 

luhere  filename  I's  the  name  of  the  docu- 
ment you  want  to  erase.  Unwanted  Pro- 
DOS  SpeedScript  files  can  also  be 
removed  with  the  Delete  File  option  in  the 
ProDOS  Filer  utility  or  System  Utilities 
package. 


Timing  in  Compiled 
Commodore  BASiC 

One  way  of  speeding  up  a  BASIC  pro- 
gram on  the  Commodore  64  is  to  com- 
pile it.  This  generally  makes  data- 
handling  programs  more  efficient  and 
game  programs  more  challenging.  One 
problem  I've  experienced  in  compiling 
my  own  programs  is  with  delay  loops. 
If  the  original  program  contains  any 
lines  of  the  form  FOR  TD  =  0  TO 
1000:NEXT  TD,  the  delays  become 
much  shorter  after  the  program  is  com- 
piled. Thus,  you  may  not  have  enough 
time  to  read  a  message,  for  instance,  or 
respond  to  a  question  before  the  pro- 
gram moves  on.  Fortunately,  there  is  a 
simple  solution.  Replace  all  such  delay 
lines  in  your  program  with  a  GOSUB  to 
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a  jiffy  clock  comparison  subroutine, 
such  as  the  one  shown  here:' 

1000  TI5= "000000" 

1010  IF  TI/60<DELAY  THEN  1010 

1020  RETURN 

When  you  need  a  delay,  just  set  the 
variable  DELAY  equal  to  the  time  delay 
in  seconds,  then  perform  GOSUB  1000. 
For  example,  to  cause  a  five-second  de- 
lay, define  DELAY  as  5. 

The  Commodore  64's  jiffy  clock 
keeps  time  in  1/60-second  units.  This 
routine  initially  sets  the  jiffy  clock  to  0 
(line  1000).  Line  1010  divides  the  value 
of  the  reserved  variable  TI  to  convert  to 
seconds.  When  the  elapsed  time  equals 
or  exceeds  the  specified  time,  the  rou- 
tine returns. 

It's  possible  that  your  program 
may  already  use  the  jiffy  clock  for  time- 
keeping. This  version  of  the  same  rou- 
tine performs  the  same  function 
vvfithout  resetting  the  clock. 

1000  JC=TI/60 

1010  IF  TI/60<DELAY  THEN  1010 

1020  RETURN 

Arnold  Walter 
Thank  you  for  these  programming  hints. 


Aulostarting  IBM  BASIC 
Programs 

I  own  a  Compaq  Plus  IBM-compatible 
computer.  Is  there  any  way  I  can  make 
a  BASIC  program  run  automatically 
when  the  computer  is  turned  on?  If  so,  I 
would  like  to  do  this  with  a  hard  drive 
(drive  C;). 

Doug  Halbert 

The  PC-DOS/MS-DOS  operating  system 
used  by  IBM  and  compatible  PCs  has  no 
explicit  provision  for  automatically  start- 
ing a  BASIC  program  when  the  computer 
is  booted.  However,  there  is  an  easy  way 
to  achieve  this  effect.  At  the  end  of  the 
boot  process,  DOS  checks  the  current  disk 
directory  for  a  text  file  named  AUTOEX- 
EC.BAT. If  a  file  with  that  name  exists, 
the  DOS  commands  from  the  file  are  read 
otie  at  a  time  and  executed  as  if  they  had 
been  typed  from  the  keyboard.  You  can 
load  BASIC  and  simultaneously  load  and 
run  a  BASIC  program  with  a  command  of 
the  form 

BASIC  filename 

where  filename  js  the  name  of  the  program 
you  wish  to  start.  (If  you  are  using  an  IBM 
PC  and  want  to  run  the  program  using 
Advanced  Disk  BASIC,  you  would  instead 
use  the  command  BASICA  filename.) 

Thus,  to  automatically  load  and  run  a 
BASIC  progratn  when  the  computer  is 
booted,  you  need  only  have  an  AUTOEX- 
EC.BAT file  containing  this  command.  If 
your  boot  disk  already  contains  an  AU- 
TOEXEC.BAT file,  use  a  text  editor  (such 


as  EDLIhJ)  or  a  word  processor  to  add  the 
command  as  the  last  line  of  the  file.  If  you 
dofi't  already  have  an  AUTOEXEC.BAT 
file  on  the  disk,  it's  easy  to  create  one.  Just 
enter  the  following  command: 

COPY  CON:  AUTOEXEC.BAT 

Next,  enter  the  command: 

BASIC  filename  (or  BASICA  filename) 

Then  press  the  F6  function  key  and  Enter 
to  end  entry  and  write  the  text  to  the  file. 
The  disk  with  the  AUTOEXEC.BAT  file 
must  also  contain  BASIC  itself  (BASIC- 
.COM  or  BASICA.COM;  for  compatibles, 
the  file  may  have  a  name  like  BASIC.EXE 
or  GWBASIC.EXE)  as  well  as  a  copy  of  the 
BASIC  program  to  be  autostarted. 

Exactly  the  same  procedure  works 
from  a  hard  disk.  If  your  system  is  set  up  to 
boot  from  the  hard  disk,  you  must  include 
the  AUTOEXECBAT  file  in  the  root  di- 
rectory of  the  hard  disk.  With  a  hard  disk, 
it's  likely  that  BASIC  itself  and  the  pro- 
gram you  want  to  run  will  reside  in  a 
subdirectory.  In  this  case,  you'll  need  to 
include  a  CHDIR  (change  directory)  com- 
mand in  your  AUTOEXEC  file  to  point 
DOS  in  the  right  direction.  For  example, 
to  autostart  a  program  named  TELCOM- 
.BAS  in  a  subdirectory  named  BASIC 
(which  also  contains  the  IBM  Advanced 
BASIC  file  BASICA.COM),  you  would 
place  the  following  commands  at  the  end 
of  your  AUTOEXEC.BAT  file: 

CHDIR  \  BASIC 
BASICA  TELCOM 

If  your  system  has  a  hard  disk,  but 
doesn't  boot  from  it,  theAUTOEXEC.BAT 
file  must  be  on  the  floppy  disk  used  to  boot 
the  system.  In  this  case,  the  CHDIR  com- 
mand must  also  specify  the  drive  designa- 
tion. In  the  example  above,  the  command 
would  change  to: 

CHDIR  C:\BASIC 


IBM  PC/PCjr  Hidden  Files 

I  would  like  to  create  hidden  files  on  my 
IBM  PC,  but  I  don't  know  how  to  do  so. 
How  are  hidden  files  created?  When 
you  copy  a  disk,  are  hidden  files  copied 
along  with  the  rest  of  the  files? 

Scott  Cottrile 

To  answer  your  last  question  first,  the 
DISKCOPY  command  copies  all  files,  in- 
cluding hidden  files  which  are  inaccessible 
with  most  other  DOS  commands  including 
COPY.  Any  bootable  DOS  disk  for  the  IBM 
PC/PCjr  will  contain  two  important  hid- 
den files:  IBMBIO.COM  and  IBMDOS- 
.COM.  On  IBM-compatible  MS-DOS 
computers,  these  files  are  usually  named 
lO.SYS  and  MSDOS.SYS,  respectively. 

Hidden  files  do  not  appear  when  you 
look  at  the  disk  directory  with  the  DIR 
command  from  DOS  or  with  the  FILES 
command  from  BASIC.  However,  they  can 
be   revealed   with    the   DOS   command 


A>debug 

-L  ds:100  0  5  1 

-D  100 

0966:0100 

0966:0110 

0966:0120 

0966:0130 

0966:0140 

0966:0150 

0966:0160 

0966:0170 

-E  10b 

0966:0108  27.20 

-W  dsilOO  0  5  1 

-Q 

A> 


49  42 
00  00 
49  42 
00  00 
43  4f 
00  00 
41  4e 
00  00 


4d  42  49  4f  20  20-43  4f  4d  27  00  00  00  00  IBMBIO  COM'. 

00  00  00  00  00  60-54  07  02  00  SO  12  00  00  'T  .  . 

4d  44  4f   53  20  20-43  4f   4d  27  00  00  00  00  IBMDOS         COM' 

00  00  00  00  00  60-54  07  Oc  00  80  42  00  00  'J....  B 

4d  4d  41  4e  44  20-43  4f  4d  20  00  00  00  00  COMMAND  COM 

00  00  00  00  00  60-54  07  2e  00  80  45  00  00  'T....E  . 

53  49  20  20  20  20-53  59  53  20  00  00  00  00  ANSI  SYS 

00  00  00  00  00  60-54  07  51  00  80  06  00  00  TQ 


CHKDSK.  Put  your  DOS  master  disk  in 
drive  A  and  enter  this  command: 
CHKDSK  A:/V 

The  drive  spins  for  a  moment,  then 
the  screen  displays  a  list  of  all  the  files  on 
the  disk,  including  hidden  files.  The 
CHKDSK  display  ends  with  a  summary 
which  indicates,  among  other  things,  hoiu 
many  hidden  files  the  disk  contains.  If  you 
omit  the  /V  option  after  the  drive  specifi- 
er, CHKDSK  prints  only  the  summary. 

Hidden  files  are  used  mainly  for  DOS 
system  files  and  are  of  little  use  in  ordinary 
programming.  What  good  is  a  BASIC  pro- 
gram that  you  can't  WAD  or  a  data  file 
that  you  can't  OPEN  for  reading?  The  same 
is  true  of  most  DOS  commands:  If  a  file  is 
hidden,  you  can't  copy  it  with  COPY,  list  it 
with  DIR,  or  execute  it  by  typing  its  name 
from  the  DOS  prompt.  Creating  a  hidden 
file  from  within  a  program  is  not  easy, 
since  BASIC  provides  no  direct  means  for 
handling  such  files.  DOS  provides  system 
routines  (interrupts)  for  directly  reading 
and  writing  a  disk  sector,  but  you'll  need  a 
machine  language  subroutine  to  call  such 
interrupts  from  BASIC. 

The  directory  entry  for  each  file  in- 
cludes a  status  byte  which  determines 
whether  the  file  is  hidden,  along  with 
several  other  attributes.  It  is  possible  to 
change  a  file's  status  byte  with  the  DE- 
BUG utility.  (For  the  PC  and  PCjr,  this 
program  is  included  on  the  DOS  Supple- 
mental Programs  disk;  for  compatibles, 
it's  on  the  DOS  master  disk.)  Be  fore- 
warned, however,  that  DEBUG  is  a  low- 
level  program  with  no  safeguards:  If  you 
accidentally  scramble  the  disk's  directory 
while  using  DEBUG,  you  can  easily  ren- 
der one  or  more  files  unreadable.  If  you 
would  like  to  work  through  the  following 
exercise,  do  so  on  a  copy  of  the  DOS  disk, 
not  on  the  original. 

The  figure  above  illustrates  a  simple 
session  with  DEBUG  which  changes  IBM- 
BI0.COM  or  lO.SYS  from  a  hidden,  sys- 
tem file  to  a  normal  file.  The  text  shown  in 
boldface  is  what  you  type.  The  rest  is 
printed  by  the  computer.  For  compatibles, 
the  filenames  will  vary  from  those  shown. 
For  example,  the  first  entry  should  be 


named  lO.SYS. 

After  you  type  debug  and  press  Enter 
at  the  DOS  prompt,  the  computer  loads 
and  executes  the  DEBUG  utility.  The  DE- 
BUG prompt  is  a  dash  (-).  The  first  DEBUG 
command  (L  ds:WO  0  5  1)  loads  the  con- 
tents of  track  0,  sector  5  from  disk  into  the 
memory  area  beginning  at  location  &hlOO. 
The  1  at  the  end  of  the  command  indicates 
how  many  sectors  to  load.  After  this  com- 
mand executes,  you  have  a  copy  of  the  first 
part  of  the  disk  directory  in  memory,  where 
it  can  be  examined  and  modified. 

The  D  command  causes  DEBUG  to 
print  the  display  shoiim  in  the  next  sever- 
al lines.  The  central  portion  of  the  display 
shows  the  hex  value  of  each  byte  and  the 
right  portion  shows  each  byte's  ASCII 
value.  The  byte  immediately  after  the  last 
byte  of  each  filename  is  that  file's  status 
byte.  This  byte  determines  the  file's  attri- 
butes, including  whether  it  is  a  hidden 
file.  The  value  &h27  indicates  a  hidden, 
system  file;  the  value  &h20  indicates  a 
normal  file. 

The  next  command  (E  lOB)  tells  DE- 
BUG that  you  want  to  edit  a  byte.  The 
value  lOB  indicates  which  byte  to  change. 
DEBUG  responds  by  printitig  the  address 
and  current  value  of  that  byte  (0966:010B 
27.).  It  then  waits  for  you  to  enter  a  new 
value.  To  change  the  byte  to  &h20,  type 
20  and  press  Enter. 

The  W  command  writes  the  data  back 
to  disk;  Q  exits  from  DEBUG  and  returns 
you  to  the  DOS  prompt.  If  you  exaynine 
the  disk  with  DIR,  you'll  see  that  IBM- 
BI0.COM  (or  lO.SYS)  noiu  appears  in  the 
normal  directory  display.  To  restore  its 
hidden  status,  repeat  the  same  procedure 
and  change  its  status  byte  back  to  &h27. 


Missing  MAKEDIR 

I  am  trying  to  move  Workbench  com- 
mands into  a  RAMdisk  as  explained  in 
"Moving  AmigaDOS  Commands  to 
RAM"  from  "Readers'  Feedback"  in  the 
April  1986  issue.  Instead  of  copying  the 
commands,  the  computer  prints  these 
error  messages: 

Copying  AmigaDOS  commands  to 
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RAMdisk... 

Can't  open  ram:c/copy  -  object  not  found 

Can't  find  ram;c/copy 

Assign  failed  returncode  20 

What  do  these  messages  mean? 

Margaret  Hettinger 

A  line  was  madvertently  left  out  of  the 
example  batch  file  printed  in  that  answer. 
Here  is  the  correct  batch  file  in  its 
entirety: 

echo  "Modified  Workbench  disk" 

echo  "  " 

echo  "Copying  AmigaDOS  commands  to 

RAMdisk..." 

makedir  rain:c 

copy  c/copy  ram:c/copy 

assign  x:  ram:c/copy 

assign  d:  ram:c 

cd  syB:c 

x;  assign  d; 

x:  cd  d: 

x:  copy  d: 

x:  delete  d: 

x:  dir  d: 

x:  diskcopy  d: 

x:  echo  d: 

x:  ed  d: 

x:  endcli  d: 

x:  info  d: 

x:  list  d: 

x:  makedir  d: 

x:  newcli  d: 

x:  rename  d: 

x:  run  d: 

x:  type  d: 

cd  sys: 

assign  c:  ram:c 

assign  d:  c:delete 

loadwb 

endcli  >  nil; 

This  file  replaces  the  file  startup- 
sequence  which  AmigaDOS  executes 
automatically  when  you  boot  the  system. 
These  commands  copy  some  commonly 
used  AmigaDOS  commands  to  the  Ami- 
ga's built-in  RAMdisk  as  part  of  the  nor- 
mal startup  procedure.  Of  course,  you  can 
delete  commands  from  this  list,  or  add 
others  if  desired.  After  the  startup  process 
is  complete,  the  Amiga  will  search  the 
RAMdisk  to  access  any  AmigaDOS  com- 
mands. This  method  saves  time  and  possi- 
bly some  disk  swapping. 

The  line  which  was  omitted  is  the  one 
containing  the  command  makedir  ram;c. 
That  command  creates  a  subdirectory 
named  c  in  the  native  RAMdisk  device, 
which  is  called  ram:  in  AmigaDOS.  If  the  c 
directory  doesn't  exist,  then  subsequent 
commands  which  refer  to  that  directory 
will  cause  the  error  messages  you  saw. 

The  April  1986  answer  explains  how 
to  edit  and  resave  the  startup-sequence  file 
with  the  AmigaDOS  editor  ED.  You  can 
also  edit  it  with  any  Amiga  word  processor 
that  saves  pies  in  plain  ASCII  form,  with- 
out special  control  codes  or  formatting 
information.  Be  sure  to  save  a  copy  of  your 
original  disk  and  practice  on  an  unimpor- 
tant disk  first,  in  case  you  make  a  mistake 
in  editing  startup-sequence. 


CompuCrazy 


"Ready  for  an  adventurous  challenge? 
We're  a  team.  And  Nellie 
doesn't  horse  around." 


?HwaJ^ 


You  never  know 
who  you'll  be  up  against 
when  you  go  online 
with  CompuServe. 


To  bu/  your  CompuServe  Subscriptfon  Kit, 
see  your  nearest  computer  dealer. 
Suggested  retail  price  $39.95. 

To  request  our  free  brochure  or  order  direct, 

call  or  write:  800-848-81 99 

(In  Ohio,  call  614-4S7-0802) 

ConapuServe" 


When  you  want  to  talk  computers. 


HOME  COMPUTERS. 


Atari  Computers 

520ST  Monochrome  System .S499.00 

520ST  Color  System 749,00 

1040ST  Color  System 859,00 

800XL  64K  Computer 63.99 

65XE  64K  Computer 97.99 

130XE  132K  Computer 129,00 

Atari  Peripherals 

1020  Color  Printer 29,99 

1050  Disk  Drive 129,00 

835  300  Baud  Modem 24,99 

850  Atari  Interface 109,00 

M301  300  Baud  Modem 39,99 

XM801  80-CoIumn  Printer 199.00 

XM804  ST  Printer 189.00 

ICD  PR  Connection 59.99 


Amiga  System  ^  ^  ^  ^^^ 
Package  ^11^9 

Includes:  Amiga  CPU,  256K  RAM  expan- 
sion, RGB  Monitor,  Amiga  DOS,  Basic, 
Tutorial,  Kaleidoscope,  Voice  Library. 

Commodore  Computers 

Commodore-64C  64K  Computer.,  189,00 
Commodore-64C  System  W/1B02C539.00 
Commodore-128  128K  Computer.  259.00 

Commodore-128  System .,,759.00 

Amiga  1000  256K  Computer 849.00 

Commodore  Peripherals 

1530  Data  Cassette 34.99 

1660  Commodore  Modem 59.99 

1670  Commodore  Modem 99.99 

1541C  Disk  Drive 189.00 

1571   Disk  Drive 249,00 

1802  Color  Monitor 199,00 

1902  Color  Monitor 299,00 

Amiga  1010  3y2"  Ext,  Drive 219,00 

Amiga  1020  51/4"  Ext.  Drive 189.00 

Amiga  1080  RGB  Monitor 269,00 

CI  28  51 2K  Expansion  Board 179.00 

PPI  Parallel  Printer  Interface 34.99 

Xetec  S/Grapfiix  8K 69.99 

Micro  R&D  MW350 44.99 


MS/DOS  SYSTEMS. 


MULTIFUNCTION  CARDS. 


PC-TOO  20  Meg        *ftnQ 
XT-Compatible  ^999 

AT&T  6300 from  $1299.00 

Compaq from  1699.00 

Cordata from  899,00 

IBM-XT from   1099,00 

IBM-AT from  2699,00 

Leading  Edge from  999.00 

Panasonic  Business  Partnerfrom  799.00 
Toshiba  1100  Plus from  1749,00 

AST 

Six  Pak  Plus  PC/XT $169.00 

Six  Pak  Premium  PC/XT 249.00 

Advantage-AT  128K 339.00 

Everex 

EV-221  Evergraphics  Mono 139,00 

EV-640  Edge  Card 259,00 

Hercules 

Color  Card 159.00 

Graptiics  Card  Plus 209.00 

Fifth  Generation 

Logical  Connection  256K 329.00 

IDEAssociates 

IDE-5251  Local  Emulator 579.00 

Intel 

1110  PC  Above  Board 279.00 

Inboard  386K  OK Call 

NEC 

GB-1    EGA 409.00 

Quadiam 

Quad  Ega+  Graphics  Adapter.. ,.329,00 

Silver  Quadboard 129,00 

Expanded  Quadboard 119,00 

VIDEO  7 

EGA  Video  Adapter 329.00 

Zuckerboard 

Color  Card  w/Parallel 89.99  I 

Monochrome  Card  vz/Parallel 99,99  ' 

576K  Memory  Card 59.99 


DRIVES. 


Allied  Technology 

Apple  Half-Heights $109.00 

Controller  Card 39.99 

CMS 

Drive  Plus  20MB  Internal  Card.,., 399. 00 

Everex 

Stream  20  20MB  Tape-Backup,.., 669,00 

Genie  Technology 

210  H  10  +   10  subsystem 1749.00 

Indus 

Atari  GT  Disk  Drive 189.00 

Commodore  GT  Disk  Drive 189.00 

Iomega 

A210H  10  +   10  Bernoulli  Box„1899,00 

A220H  20-1-20  Bernoulli  Box 2499,00 

Irwin 

110  D  10MB  Tape  backup 319.00 

Mountain  Computer 

Drive  Card  20MB  Internal  Card, ,,649.00 

A220  20  -I-  20  Subsystem 2199.00 


Racore  *o  4  Q 

Jr.  Expansion  w/DMA'^O  1^ 
Seagate 

ST-225  w/Controller 399.00 

Toshiba 
I  Half-Height  360K  internal 89.99 


DISKETTES. 


Maxell 

MD-1  SS/DD  S'A" $8,99 

MD-2  DS/DD  5'/)" 10.99 

MD-2HD  Hi-Density  5Va" 21.99 

MF-1  SS/DD  3V2" 12.99 

MF-2  DS/DD  3V2" 21.49 

CS-500  20Mb  Streamer  Tape 11.99 

CS-600  60Mb  Streamer  Tape 13.49 

Sony 

MD1  SS/DD  5V4" 8,49 

MD2  DS/DD  5V4" 9,99 

MD-2HD  Hi-Density  SV*" 22,49 

MFD-1  SS/DD  3V2" 14.49 

MFD-2  DS/DD  3V2" 20,49 


y 


COMPUTER  MAIL  ORDER 


When  you  want  to  talk  price. 


MONITORS. 


Atndek 

Video  310A  Amber  TTL $149.00 

Color  722  RGB,  CGA/EGA 499.00 

Magnavox 

8CM515  RGB  Monitor-80 289.00 

7BM623  PC  Monitor-80  Amber 99.99 

Mitsubishi 

XC  1409C  14"  RGB 319.00 

NAP 

873  14"  IVIultimode 549.00 

NEC 

12"  TTL  Green  or  Amber 129.00 

JC-1401P3A  Multi-Sync Call 

Princeton  Grapiiics 

MAX-12  12"  Amber  TTL 169.00 

HX-12  12"  Color  RGB 429.00 

HX-12E  12"RGB/EGA 499.00 

Quadmm 

8460  Quadchrome  Enhanced 439.00 

Taxan 

Model  124  12"  Amber 139.00 


MODEMS. 


Anchor 

6480  C64/128  1200  Baud $119.00 

Omega  80  Amiga 129.00 

VM520  ST520/1040  1200  Baud...  139.00 


1200  Baud  Internal  1 19 

Hayes 

Smartmodem  300  External 139.00 

Smartmodem  1200B  Internal 359.00 

Smartmodem  2400B  Internal 539.00 

Practicat  Peripherals 

Practical  Modem  1200  External...  159.00 

Quadram 

Quadmodem  1 11 200  Baud 299.00 

Supra 

MPP-1064  AD/AA  C84 69.99 

1200AT  1200  Baud  Atari 149.00 

US.  RotKrtics 

2400  Baud  Internal 189.00 


PRINTERS. 


Canon 

LBP-flAI   Laser,  8  Page/Min $1899.00 

Citizen 

MSP-10  160  cps,  SCMDolumn 319.00 

MSP-20  200  cps,  8K  Buffer 349.00 

Premier  35  35  cps  Daisywheel..,-499.00 
Citoh 

8510-SP  180  cps,  BOColumn Call 

310-SEP  Epson/IBM  80-Column Call 

Cordata 

The  Desktop  Printehop  Laser 2199.00 


Epson  LX-86  *  ^  -^-^ 

120  cps,  Dot  Matrix^  199 

Epson 

FX-86E  240  cps,  80<;olumn Call 

FX-286E  240  cps,  132-Column Call 

EX-800  300  cps,  80<:olumn 459.00 

LQ-800  180  cps,  24-Wire  Printliead..Call 
Juki 

6300  40  cps  Daisywheel 699.00 

6100  10  cps  Daisywheel 429.00 

5510C  Color  Dot  Matrix 449.00 

NEC 

Pinwriter  660  24  Wire 489.00 

Pinwriter  760  24  Wire 689.00 

Ol^idata 

ML-182  120  cps,  8&Column 219.00 

ML-192-t-   200  cps,  BOColumn... .369.00 

ML-193-(-  200  cps,  132-Column Call 

ML-292  200  cps,  80-Column Call 

ML-293  200  cps,  132-Column Call 

Panasonic 

KX-1080i  120  cps,  e&Column 219.00 

KX-1091i  180  cps,  80-Column 299.00 

KX-1592  180  cps,  132-Column. .,..439.00 

Star  Micronics 

NX-IOC  120  cps,  C64  Interface. ..21 9.00 

NX-10  120  cps,  80-Column 219.00 

NX-15  120  cps,  132-Column 379.00 

Texas  Instrument 

Tl-855  150  cps,  BOColumn.... 599.00 

Toshiba 

P321  216  cps,  24-Pin  Printhead...479.00 

P341  216  cps,  24-Pin  Prlnthead...589.00 


SOFTWARE. 


FOR  AMiGSA 
Aegis  Development 

Animator  &  Images $99.99 

Commodore 

Textcraft/Graphcraft 59.99 

Eiectronic  Arts 

Deluxe  Paint 64.99 

IVIicrolilusions 

Dynamic  CAD 359.00 

Micro  Systems 

Scribble  Word  Processor 79.99 

Subtogic 

Flight  Simulator  II 37.99 

FOR  ATARI  ST 
Access 

Leader  Board  Golf 27.99 

Batteries  Included 

D.E.G.A.S.  Elite 59.99 

Microprose 

Silent  Service 29.99 

Paradox 

Wanderer  3D 29.99 

Sublogic 

Flight  Simulator  II 37.99 

Timeworks 

Swiftcalc 54,99 

FOH  IBM 
Ashton-Tate 

d-Base  111-5- 429.00 

5th  Generation 

Fastback  Utility 89.99 

llVtSI 

Optimouse  w/Dr.  Halo 99.99 

Lotus 

Lotus   1-2^ 329.00 

MicroPro 

Wordstar  Professional  w/GL 189.00 

Microstuf 

Crosstalk  XVI 89.99 


Satellite  Systems 
Word  Perfect  4.2 

P.F.S. 

First  Choice , 
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.99.99 


In  the  U.S.A.  and  in  Canada 

Call  toll-free:  1-800-233-8950. 

Outside  the  U.S.A.  call  717-327-9575  Telex  5106017898 

Educational,  Governmental  and  Corporate  Organizations  call  toll-free  1-800-221-4283 

CMO.  477  East  Third  Street,  Dept.  A204,  Williamsport,  PA  17701 
ALL  MAJOR  CREDIT  CARDS  ACCEPTED. 

POLICY:  Add  3%  (minimum  S7.00)  shipping  and  handling.  Larger  shipmenis  may  require  additional  charges.  Personal  and  company  checks  require  3  weeKs 
to  clear.  For  faster  delivery  use  your  credit  card  or  send  cashier's  check  or  bank  money  order.  Pennsylvania  residents  add  6%  sales  tax.  All  prices  are  U.S.A. 
prices  and  are  sub|ect  to  change  and  ali  items  are  subject  to  availability.  Defective  software  will  be  replaced  with  tfie  same  item  only.  Hardware  will  be  replaced 
or  repaired  at  our  discretion  within  the  temis  and  limits  of  the  manufacturer's  warranty.  We  cannot  guarantee  compatibility.  All  sales  are  final  and  returned  shipments 
are  subject  to  a  restocking  fee. 


IBM  PrtSc  Revisited 

I  was  delighted  to  see  the  answer  "IBM 
PrtSc  Problems"  in  the  September  1986 
installment  of  this  column,  since  I  had 
the  same  problem  (thin  white  lines  be- 
tween each  row  of  a  graphics  printout) 
with  my  Mannesman  Tally  Spirit  80 
printer.  But  your  answer  did  not  tell  the 
whole  story.  The  GRAPHICS.COM 
utility  does  not  reset  the  printer 
completely,  but  it  does  reset  the  print 
spacing  by  sending  the  code  appropri- 
ate for  an  IBM  or  Epson  printer.  If  your 
printer  works  correctly  with  PrtSc  ex- 
cept for  the  gap  between  lines,  you  can 
fix  the  problem  simply  by  replacing  the 
spacing  number  for  the  printer  in  the 
GRAPH1CS.COM  file.  Here  is  a  com- 
mented disassembly  of  the  relevant  sec- 
tion of  GRAPHICS.COM: 


GRAPHICS.COM  and  press  Enter, 
This  activates  DEBUG  and  loads 
GRAPHICS.COM  into  memory  The 
DEBUG  prompt  is  a  hyphen  (-). 

3.  Use  the  Display  command  (D)  to  look 
at  the  section  of  code  to  be  changed. 
Type  D  0150  016F  and  press  Enter. 
The  computer  displays  two  lines  of 
16  hexadecimal  numbers,  in  the  same 
order  in  which  they  appear  in  memo- 
ry. Notice  the  number  $18  in  location 
$0169. 

4.  Use  the  Enter  command  (E)  to  enter 
your  new  value  as  a  two-digit  hexa- 
decimal number.  For  instance,  if  the 
new  value  is  $15,  typeE  0169  15  and 
press  Enter. 

5.  Repeat  the  same  Display  command 
outlined  in  step  3.  This  time  you  will 
notice  your  new  value  in  location 
$0169. 


1.  DS:0159- 

E8 

95 

01- 

CALL  02F1 

send  linefeed  to  printer 

2.  DS:015C- 

BS 

IB 

00- 

MOV  AX,001B 

load  A  register  with  $1B 

3.  DS:015F- 

E3 

7A 

01- 

CALL  02DC 

routine  sends  SIB  to  printer 

4.  DS:0162- 

BS 

33 

00- 

MOV  AX,0033 

load  A  register  with  $33 

5.  DS:0165- 

E8 

74 

01- 

CALL  02DC 

send  $33  to  printer 

6.  DS:0168- 

B8 

18 

00- 

MOV  AX,0018 

load  A  register  with  $18 

7.  DS:016B- 

E8 

6E 

01- 

CALL  02DC 

send  SIS  to  printer 

The  rouHne  at  $02DC  uses  INT  $  1 7 
to  send  data  to  the  printer  when  the 
value  in  register  AH  equals  0.  Lines  2-3 
of  this  code  fragment  send  the  ESC 
code  ($1B,  character  27)  to  the  printer. 
Lines  4-5  send  the  code  to  make  the 
line  spacing  h/216,  where  u  is  the  num- 
ber sent  in  lines  6-7.  As  shown,  GRA- 
PHICS.COM  sets  up  the  printer  with  a 
line  spacing  of  $18/$D8  =  24/216  = 
.111  inches. 

To  get  the  right  spacing,  you  need 
to  replace  the  $18  in  address  $0169 
with  the  correct  number  for  your  print- 
er. With  the  DEBUG  utility,  I  substitut- 
ed $15  (decimal  21)  for  that  value  and 
got  excellent  results  with  a  high-resolu- 
tion screen  dump. 

If  you're  interested  in  making  this 
modification,  but  don't  have  much 
experience  with  DEBUG,  here  are  step- 
by-step  instructions  for  performing  the 
change.  Before  you  attempt  to  edit  the 
file,  figure  out  the  spacing  you  need — 
in  terms  of  inches — by  printing  some 
graphics  with  PrtSc.  Then  calculate 
how  many  216ths  of  an  inch  it  will 
require  to  close  the  gap.  If  you  convert 
this  number  to  hexadecimal,  you  then 
have  the  number  to  store  in  address 
$0169  of  GRAPHICS.COM.  Here  are 
the  remaining  steps. 

1.  Copy  GRAPHICS.COM  and  DE- 
BUG. COM  from  your  DOS  master 
disk  onto  a  new  disk.  Do  not  use 
your  original  disks,  in  case  you 
make  a  mistake  with  DEBUG  and 
garble  a  file. 

2.  From  the  DOS  prompt,  type  DEBUG 


6.  Use  the  Write  command  (W)  to  save 
the  modified  copy  of  GRAPHICS- 
.COM  to  disk.  Type  W  and  press 
Enter.  This  operation  works  correctly 
if  you  follow  the  exact  steps  outlined 
here;  it  may  not  work  if  you  have 
used  other  features  of  DEBUG  in  the 
meantime. 

7.  Use  the  Quit  command  (Q)  to  exit 
DEBUG  and  return  to  the  DOS 
prompt.  Type  Q  and  press  Enter. 

It  doesn't  hurt  to  experiment,  as 
long  as  you  take  care  to  save  an  unmod- 
ified copy  of  GRAPH1CS.COM  on  a 
separate  disk.  If  the  first  modification 
doesn't  work  out,  repeat  the  procedure 
using  a  slightly  different  value. 

Larry  Bogan 

Thank  you  for  the  information. 


2  Times  8  Is  Not  16 

Is  it  possible  to  link  two  Atari  400  com- 
puters together  through  the  I/O  port?  If 
so,  would  the  two  memory  capacities 
combine  to  become  16K?  Which  key- 
board should  1  use  to  type  in  programs? 
Are  there  any  dangers  or  complications? 
Michael  Zucca 

Although  it  is  physically  possible  to  con- 
nect two  Atari  computers  (or  two  Commo- 
dore 64s,  for  that  matter)  through  the  I/O 
ports,  it  would  serve  no  useful  purpose  to 
do  so.  In  fact,  it  may  even  damage  one  or 
both  of  the  computers. 

The  Atari  serial  ports  are  designed  to 
communicate  with  special  "intelligent" 


peripherals.  There  is  a  protocol — a  speci- 
fied means  of  communication — that  any 
peripheral  must  follow  in  order  to  be  rec- 
ognized. In  the  case  you  suggest,  neither  of 
the  computers  is  equipped  to  act  as  a 
peripheral  for  the  other,  so  communica- 
tion is  impossible.  In  addition,  electricity 
flows  through  the  serial  port,  so  the  con- 
nection might  damage  the  POKEY  chip  on 
one  or  both  of  the  machines. 

It  is  possible,  however,  to  connect 
two  computers  with  a  null  modem  cable, 
in  order  to  transfer  information  from  one 
computer  to  another.  A  null  modem  cable 
IS  essentially  a  normal  modem  cable  with 
the  send  and  receive  lines  reversed  at  one 
end.  Information  which  one  computer 
transmits  on  its  send  wire  is  received  on 
the  other's  receive  line,  and  vice  versa. 

When  linked  with  a  null  modem  ca- 
ble, the  computers  would  not  share  their 
memories,  however.  It  would  be  more  like 
calling  a  bulletin  board  to  transfer  files 
from  one  computer  to  another.  In  most 
cases  it's  easier  to  use  the  disk  drive  or 
cassette  recorder  to  transfer  files. 

If  you're  running  out  of  RAM,  Atari 
and  other  manufacturers  previously  of- 
fered memory  upgrades  up  to  as  much  as 
48K.  You  still  may  be  able  to  find  one. 
However,  it  may  make  more  sense  to  buy 
an  Atari  65XE,  which  is  software  compati- 
ble with  the  400  and  features  64K  of  memo- 
ry and  a  full,  typewriter-style  keyboard. 

Nuil  String  Blues 

1  have  been  having  trouble  with  dimen- 
sioning arrays.  I  am  writing  a  program 
that  vrates  50  lines  of  text  to  a  sequen- 
tial file.  I  have  talked  with  several  of  my 
friends,  and  they  say  the  program 
works  on  their  computers,  but  1  still 
have  problems  with  it.  The  portion  that 
actually  writes  the  file  appears  to  work, 
as  I've  been  able  to  load  the  file  using  a 
word  processor  that  handles  text  in  a 
sequential  file.  Here  is  the  routine  1  use 
to  write  the  file: 

10  DIH  A? (50) 

20  FOR  X-1  TO  50 

30  INPUT  A$(X):IF  A$(X)=""  THE 

N  100 
40  NEXT  X 

100  OPEN  3,8,3, "SEQ-TEST,S,W" 
110  FOR  X=l  TO  50 
120  PRINT#3,A$(X) 
130  NEXT  X 
140  CLOSE  3 

When  I  try  to  read  the  file  back,  the 
disk  drive  starts  to  whir  as  if  it's  reading 
successfully.  Then  the  drive  stops,  but 
its  red  light  remains  on.  Nothing  else 
happens  and  the  program  appears  to 
lock  up.  Here  is  the  routine  I  use  to  read 
the  file: 

500    OPEN    3,9,3, "SEQ-TEST,S,R" 

510    FOR   X=l    TO    50 
520    INPUT#3,A$(X) 
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530  NEXT  X 

540  CLOSE  3 

550  FOR  X=l  TO  50 

560  PRINT  A$CX) 

570  NEXT  X 

Should  I  redimension  the  array  in 
the  middle  of  the  program?  I  heard  that 
this  will  also  produce  an  error.  Can  you 
give  me  an  idea  of  what's  going  on  here? 

Scott  Bradbury 

Your  problem  actually  has  nothing  to  do 
with  the  DIM  statement.  For  the  most 
part,  it's  caused  by  the  INPUT#  state- 
ment. By  dimensioning  A$  to  50  in  line  10, 
you  initially  set  aside  room  for  51  ele- 
ments of  A$;  remember,  there's  an  A$(0) 
element,  even  if  you  don't  use  it.  At  the 
same  time,  each  of  those  elements  is  de- 
fined as  a  null  string  (a  string  that  con- 
tains nothing).  After  you  have  entered  text 
definitions  for  as  many  of  these  elements 
as  you  wish  (lines  20-40),  the  remaining 
elements  are  still  nulls.  When  you  write 
A$  to  disk  as  SEQ-TEST  in  lines  100-140, 
the  null  string  elements  are  written  as 
carriage  returns  (character  13).  But  so  far, 
you're  OK. 

The  problem  arises  when  you  attempt 
to  read  the  null-string  elements  back  with 
an  INPUT#  loop  (lines  500-540).  IN- 
PUTS expects  each  string  to  be  terminat- 
ed with  a  carriage  return.  Thus,  the 
INPUT#  statement  in  line  520  reads  cor- 
rectly the  elements  ofA$  that  are  defined 
as  something  other  than  a  return.  But 
when  the  program  encounters  CHR$(13) 
alone,  it  continues  to  look  for  some  char- 
acter that's  not  a  return.  Sifice  there's 
nothing  to  read,  the  program  halts  indefi- 
nitely, and  the  drive  light  remains  on. 

The  solution  is  simple.  Add  a  FOR- 
NEXT  loop  between  lines  10  and  20  which 
initializes  every  element  of  AS  to  some 
character  that's  unlikely  to  be  entered  in 
line  30.  Depending  on  what  the  rest  of  the 
program  does,  a  graphics  character  such 
as  CHR$(Z55)  might  be  suitable.  This  will 
prevent  INPUT#  from  hanging  up  when 
it  encounters  null  elements.  You'll  also 
need  to  add  a  statement  to  your  reading 
routine  to  discard  the  null  markers  when 
they  are  read  back  in.  For  example,  if  you 
choose  to  use  CHR$(255)  as  your  null 
marker,  you  could  add  the  following  line 
to  your  reading  routine: 

525  IF  A$(X)=CHR$(255)  THEN 

A$(X)=""  © 


IWo-On-IWo  Basketball  Action 

One-on-one  is  OK  for  a  little  practice,  but  real  basketball  is 
a  team  sport  To  be  really  good  at  it  you  need  all  the  skills  - 
passing,  dribbling,  shooting,  stealing  and  rebounding.  That's 
what  it  takes  to  win  a  championship.  That's  what  GBA  Champion- 
ship Basketball™:  IWo-on-TWo'"  delivers. 
From  the  roar  of  the  crowd  to  the  swish  of  the  net,  from  slam 
dunks  to  three-point  shots,  it's  all  here — fast  and  competitive. 
Not  only  is  there  team  action,  but  you  can  even  compete  in  a 
4-division,  23-team  league  —  all  the  way  to  the  playoffs  and  the 
GBA  Championship  game! 

When  you're  ready  to  jump  into  the  big  leagues  of  computer 
basketball,  start  with  the  game  that  begins  where  the  others  leave 
off—  GBA  Cham.pianship  Basketball:  Two-on-TWo. 


Commodore  Amiga 
screen  stiown. 


'  ,.,tlie  best  arcade 
busketball  game  IVe 
H  seen.  If  you  liked 
One  on  One,  you'll 
ioue  this..." 
-  Randy  Chase, 
Guide  to  Computer 
Living 
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For  Commodore  64, 128  and  Amiga, 

Apple  ne,  nc,  and  IIgs,  Atari  ST.  IBM  PC,  PCjr, 

Ikndy  1000  and  100%  compatibles. 


COMPUTEi's 

Author's  Guide 


Most  of  the  following  suggestions  serve  to  improve 
the  speed  and  accuracy  of  publication.  COMPUTEf  is 
primarily  interested  in  new  and  timely  articles  on  the 
Commodore  64/128,  Atari,  Apple,  IBM  PC/PCjr, 
Amiga,  and  Atari  ST.  We  are  much  more  concerned 
with  the  content  of  an  article  than  with  its  style,  but 
articles  should  be  clear  and  well-explained. 

The  guidelines  below  will  permit  your  good  ideas 
and  programs  to  be  more  easily  edited  and  published: 

1.  The  upper  left  corner  of  the  first  page  should 
contain  your  name,  address,  telephone  number,  and 
the  date  of  submission. 

2.  The  following  information  should  appear  in  the 
upper  right  corner  of  the  first  page.  If  your  article  is 
specifically  directed  to  one  make  of  computer,  please 
state  the  brand  name  and,  if  applicable,  the  BASIC  or 
ROM  or  DOS  version(s)  involved.  In  addition,  please 
indicate  the  memory  requirements  of  programs. 

3.  The  underlined  title  of  the  article  should  start 
about  2/3  of  the  way  down  the  first  page. 

4.  Following  pages  should  be  typed  normally,  ex- 
cept that  in  the  upper  right  corner  there  should  be  an 
abbreviation  of  the  title,  your  last  name,  and  the  page 
number.  For  example:  Memory  Map/Smith/2. 

5.  All  lines  within  the  text  of  the  article  must  be 
double-  or  triple-spaced.  A  one-inch  margin  should  be 
left  at  the  right,  left,  top,  and  bottom  of  each  page.  No 
words  should  be  divided  at  the  ends  of  lines.  And 
please  do  not  justify.  Leave  the  lines  ragged. 

6.  Standard  typing  paper  should  be  used  (no  eras- 
able, onionskin,  or  other  thin  paper)  and  typing 
should  be  on  one  side  of  the  paper  only  (upper-  and 
lowercase), 

7.  Sheets  should  be  attached  together  with  a  pa- 
per clip.  Staples  should  not  be  used, 

8.  If  you  are  submitting  more  than  one  article, 
send  each  one  in  a  separate  mailer  with  its  own  tape 
or  disk. 

9.  Short  programs  (under  20  lines)  can  easily  be 
included  within  the  text.  Longer  programs  should  be 
separate  listings.  It  is  essential  that  we  have  a  copy  of 
the  program,  recorded  twice,  on  a  tape  or  disk.  If  your 
article  was  written  with  a  word  processor,  we  also  ap- 
preciate a  copy  of  the  text  file  on  the  tape  or  disk. 
Please  use  high-quality  10  or  30  minute  tapes  with 
the  program  recorded  on  both  sides.  The  tape  or  disk 
should  be  labeled  with  the  author's  name,  the  title  of 
the  article,  and,  if  applicable,  the  BASIC/ROM/DOS 
version(s).  Atari  tapes  should  specify  whether  they  are 
to  be  LOADed  or  ENTERed.  We  prefer  to  receive  Ap- 
ple programs  on  disk  rather  than  tape.  Tapes  are  fairly 
sturdy,  but  disks  need  to  be  enclosed  within  plastic  or 
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cardboard  mailers  (available  at  photography,  station- 
ery, or  computer  supply  stores). 

10.  A  good  general  rule  is  to  spell  out  the  num- 
bers zero  through  ten  in  your  article  and  write  higher 
numbers  as  numerals  (1024).  The  exceptions  to  this 
are:  Figure  5,  Table  3,  TAB(4),  etc.  Within  ordinary 
text,  however,  the  zero  through  ten  should  appear  as 
words,  not  numbers.  Also,  symbols  and  abbreviations 
should  not  be  used  within  text:  use  "and"  (not  &), 
"reference"  (not  ref.),  "through"  (not  thru). 

11.  For  greater  claritv,  use  all  capitals  when  refer- 
ring to  keys  (RETURN,  TAB,  ESC,  SHIFT),  BASIC 
words  (LIST,  RND,  GOTO),  and  three  languages 
(BASIC,  APL,  PILOT).  Headlines  and  subheads 
should,  however,  be  initial  caps  only,  and  emphasized 
words  are  not  capitalized.  If  you  wish  to  emphasize, 
underline  the  word  and  it  will  be  italicized  during 
typesetting. 

12.  Articles  can  be  of  any  length — from  a  single- 
line  routine  to  a  multi-issue  series.  The  average  article 
is  about  four  to  eight  double-spaced,  typed  pages. 

13.  If  you  want  to  include  photographs,  they 
should  be  either  5X7  black  and  white  glossies  or 
color  slides. 

14.  We  do  not  consider  articles  which  are  submit- 
ted simultaneously  to  other  publishers.  If  you  wish  to 
send  an  article  to  another  magazine  for  consideration, 
please  do  not  submit  it  to  us. 

15.  COMPUTE!  pays  between  $70  and  $800  for 
published  articles.  In  general,  the  rate  reflects  the 
length  and  quality  of  the  article.  Payment  is  made 
upon  acceptance.  Following  submission  (Editorial  De- 
partment, COMPUTE!  Magazine,  P.O.  Box  5406, 
Greensboro,  NC  27403)  it  will  take  from  four  to  eight 
weeks  for  us  to  reply.  If  your  work  is  accepted,  you 
will  be  notified  by  a  letter  which  will  include  a  con- 
tract for  you  to  sign  and  return.  Rejected  manuscripts 
are  returned  to  authors  who  enclose  a  self-addressed, 
stamped  envelope. 

16.  If  your  article  is  accepted  and  you  have  since 
made  improvements  to  the  program,  please  submit  an 
entirely  new  tape  or  disk  and  a  new  copy  of  the  arti- 
cle reflecting  the  update.  We  cannot  easily  make  revi- 
sions to  programs  and  articles.  It  is  necessary  that  you 
send  the  revised  version  as  if  it  were  a  new  submis- 
sion entirely,  but  be  sure  to  indicate  that  your  submis- 
sion is  a  revised  version  by  writing,  "Revision"  on  the 
envelope  and  the  article. 

17.  COMPUTE!  does  not  accept  unsolicited  product 
reviews.  If  you  are  interested  in  serving  on  our  panel 
of  reviewers,  contact  the  Review  Coordinator  for 
details. 


TO  200  FUN-RLLED 
PROGRAMS  EACH  YEAR- 

when  you  subsaibe  now  to  COMPUTE! 


^S    076  5   45223    I  SOTS') 


WTTM 


.III    lasK.    ThP    <*rEt  hurdle   is    fii 
'»    "^Aff-    flat    TO   PUT    1^f   CDdf.    Ihoujh      ' 
(hir   cAc#t(p  buffrr    is   jn  obvicu; 
<hDie*.    it's   located  (n  itnitrifix 
»JJC*S    on   vitmus   HiCKiTtti^    4nd  pullinj 
nt    Xhtr"   crtatti   prelrl^n^    fcr  tivpr 

256  hvt*^   Of   BASIC   prfrgr^ptHifi?  sptct.f 
m 

Lt/Q'r«    it    Installs   1h*  roulin* 
ifv,    (ht   Ppoofrcider   chcch^  ■ 


Checks  *(<*  S^f 


Which     «*»Tptfl^.      J—    ..     ,.     ■■■Aj,iJ 

i^tor^s   1h»  RL    at    th»  botton  cf  BASIC 
fMtFwry    jtnd   pr^^flcts    itstl'    by   Ftowtng 
th«   <;<jwuisr'5   stJcr-of-BflSlC   poii>ter 
to   «   spot   ?5&  iiiites    hl^hrr    if  f*eHory. 
One*   Ihil's    d^r>f,    the   Yjoaiftaitr 
4C*iVi«tPC    Ihr    re.    rauilnr    and   tf*iti 
ltSFl#    with    HCH,    fffl^e    that    brciUir   th* 
P^SSlre'ider   oyerwfit;*?    its    first   *«w 
HMiC    lln»c,    ii's   criKCiJ    not    te 
Jfc'ipi*   .ifi'^Thin'?    frflM   ti-ff    *trit   portion 


Subscribe  to  COMPUTE!  today  through  this 
special  introductory  money-saving  offer,  and 
you'll  be  getting  a  lot  more  than  just  another 
computer  magazine.  That's  because  each  issue 
of  COMPUTE!  comes  complete  with  up  to  20 
all-new,  action-packed  programs. 

Subscribe  now  and  you  can  depend  on  a 
steady  supply  of  high  quality,  fun-filled 
programs  lil<e  Hickory  Dickory  Dock, 
Switchbox,  TurboDisk,  Home  Financial 
Calculator,  Turbo  Tape,  SpeedScript, 
SpeedCalc,  and  hundreds  of  other  educational, 
home  finance,  and  game  programs  the  entire 
family  can  use  all  year  long. 

The  superb  programs  you'll  find  in  each 
issue  are  worth  much,  much  more  than  the 
low  subscription  price. 

And  there's  more  to  COMPUTE!  than  just 
exciting  new  programs.  Month  after  month, 
COMPUTES's  superb  articles  deliver  the  latest 
inside  word  on  everything  from  languages  to 
interfaces.. .from  programming  to  disk  drives. 

Whether  you're  a  novice  or  an  experi- 
enced user,  COMPUTE!  Is  the  magazine  for 
you.  So  subscribe  today.  Return  the  enclosed 
card  or  call  1-800-247-5470  (in  Iowa, 
1-800-532-1272). 
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Report  From  The  Winter 
Consumer  Electronics  SInow 


The  personal  computer  industry  is 
pulled  along  in  many  ways  by  the 
oohs  and  aahs  evoked  by  rapidly 
advancing  technology.  Like  a  giant 
fireworks  display,  each  new  explo- 
sion must  seem  to  top  the  last. 

But  as  the  show  goes  on,  the 
more  astute  observers  realize  that 
the  spectacle's  subtle  patterns  and 
unique  tempo  are  as  fascinating  and 
as  much  a  part  of  the  picture  as  the 
escalating  pops  and  whistles. 

The  Winter  CES  in  January  fea- 
tured plenty  of  fireworks  for  per- 
sonal computer  users.  Not  only 
were  there  important  new  an- 
nouncements, but  the  industry's 
tempo  and  market  patterns  that 
emerged  made  this  CES  one  of  the 
most  significant  in  years — especial- 
ly as  it  affects  the  home,  education- 
al, and  small  business  markets. 

Despite  this  fact,  much  of  the 
general-interest  news  coverage  of 
CES  in  January  focused  almost  ex- 
clusively on  the  pop  and  whistle  of 
the  latest  high-tech  audio  and  video 
products.  In  many  newspaper,  mag- 
azine, and  television  reports, 
scarcely  a  mention  was  made  of  the 
computer  segment  of  CES,  even 
though  it  takes  up  at  least  a  third  of 
the  entire  show  and  the  attention  of 
more  than  one  hundred  thousand 
attendees. 

Consider  a  few  of  the  follow- 
ing twists  and  turns  that  emerged 
from  CES: 

•  Commodore  sneak-pre- 
viewed, for  selected  dealers  and  the 
press,  two  new  Amiga  computers — 
one  a  low-priced  entry-level  ma- 
chine with  the  same  functionality  of 
the  original  Amiga  1000  and  the 
other  an  expandable  multiprocess- 
ing computer  that  can  handle  up  to 
nine  megabytes  of  memory.  (See 
"Commodore's  New  Expandable 
Amiga  2000"  in  the  March  issue.) 

•  Atari  chief  Jack  Tramiel  an- 
nounced to  the  press  that  just  ten 
years  after  he  introduced  his  first 
computer  at  CES,  a  Commodore 
PET  with  only  4K  of  memory,  he 
was  pleased  to  introduce  a  four- 


megabyte  (4000K)  Atari  ST,  one  of 
two  new  Mega  ST  systems.  The 
other  machine  has  two  megabytes 
of  RAM. 

•  Atari  also  announced  a  new 
laser  printer  for  the  ST  series  that 
will  cost  under  $1,500.  With  the 
new  two-meg  and  four-meg  STs, 
that  means  a  desktop  publishing 
system  can  now  be  purchased  for 
under  $3,000. 

•  At  least  five  companies,  in- 
cluding both  Atari  and  Commo- 
dore, announced  the  introduction 
of  new  IBM  PC  compatibles,  join- 
ing a  host  of  other  companies  al- 
ready selling  the  MS-DOS 
computers.  At  the  same  time,  com- 
panies specializing  in  home  and 
educational  software  continued  to 
introduce  more  IBM  PC-compati- 
ble programs  than  ever  before. 

•  Commodore  showed  its  new 
256K  RAM  expander  for  the  Com- 
modore 64,  which,  among  other 
things,  will  make  the  64's  new 
GEOS  operating  system  work  far 
faster  and  easier.  At  the  same  time. 
Commodore  officials  and  third-par- 
ty software  developers  gave  indica- 
tions that  the  Commodore  64 
computer  will  more  than  likely  be 
supported  into  the  1990s. 

•  Commodore  also  introduced 
a  reconfigured,  new-look  Commo- 
dore 128. 

•  Atari  displayed  a  prototype  of 
its  new  XE  Video  Game  System,  a 
reconfigured  Atari  65XE  personal 
computer  that  can  be  bought  as  a 
game  machine,  but  is  expandable 
into  a  personal  computer.  Ironical- 
ly, the  videogame  machine,  once 
considered  dead,  has  roared  back  to 
life  for  Atari  and  for  several  other 
companies  during  the  past  year, 

Maturing  And  Growing 

What  became  abundandy  clear  at 
CES  was  that  the  personal  com- 
puter industry  is  continuing  to  ma- 
ture as  it  grows.  The  computers  are 
more  powerful,  their  applicadons 
more  sophisticated,  and  the  surviv- 


ing software  and  hardware  compa- 
nies more  knowledgeable  about 
what  consumers  want. 

As  one  company  official  noted, 
the  1986  holiday  season  was  the 
first  year-end  period  in  which  some 
computer  manufacturer  wasn't  try- 
ing to  dump  a  computer  that  had 
failed  in  the  marketplace  or  been 
defeated  in  price  wars.  IBM  was 
unloading  its  PCjr  in  1985,  and  in 
previous  holiday  seasons  Coleco 
dumped  the  Adam,  Texas  Instru- 
ments closed  out  the  TI-99/4A,  and 
the  pre-Tramiel  Atari  flooded  the 
market  with  surplus  Atari  800s  and 
400s  before  the  XL  series  was 
ready. 

At  the  end  of  1986  and  the 
beginning  of  1987,  however,  all  of 
the  major  players  were  supporting 
their  computers  to  the  hilt,  from  the 
five-year-old  Commodore  64  and 
the  eight-bit  Ataris  to  the  latest 
Amigas  and  Mega  STs.  The  Apple 
II  series  was  being  extended  by  the 
Apple  IlGS,  and  a  new  generation  of 
Macintoshes  was  expected.  And 
even  if  IBM  was  edging  away  from 
a  less  profitable  MS-DOS  standard 
it  established,  there  were  plenty  of 
PC-compatible  manufacturers  sup- 
porting those  computers. 

The  Affordable  Amiga  500 

One  of  the  happiest  pieces  of  news 
to  emerge  from  CES  was  the  fact 
that  Commodore  was  planning  to 
introduce  two  new  Amiga  comput- 
ers this  spring. 

Commodore  officials  pre- 
viewed the  new  Amiga  500,  a  low- 
cost  machine  (under  $650),  and  the 
powerful  Amiga  2000,  an  expand- 
able Amiga  which  contains  slots  for 
both  Amiga  and  IBM  cards  and  is 
priced  beginning  at  under  $1,500. 
Both  Amigas  are  completely  com- 
patible with  the  original  Amiga 
1000,  as  long  as  the  software  being 
used  follows  the  specifications  for 
version  1.2  of  the  Amiga  operating 
system. 

Although  the  Amiga  1000 
originally  sold  for  about  $2,000,  the 
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price  dropped  below  $1,500  during 
1986,  The  new  Amiga  500  will  sell 
for  about  $1,000,  which  includes 
the  price  of  Commodore's  new 
$350  A2002  composite/RGB  moni- 
tor (similar  to  the  present  Amiga 
1080  monitor). 

The  Amiga  500  has  512K  of 
RAM,  double  the  memory  of  the 
1000;  a  built-in  880K  3y2-inch  flop- 
py disk  drive;  an  expanded  key- 
board with  separate  cursor  and 
numeric  keypads;  the  Kickstart  1.2 
operating  system  built  into  ROM 
instead  of  on  disk;  and  a  35-watt 
power  supply.  The  Amiga  500  uses 
about  half  the  power  of  the  original 
Amiga.  If  other  devices  or  extra 
memory  is  added,  the  500's  power 
supply  will  have  to  be  supplement- 
ed. But  for  many  500  owners  this 
will  never  be  necessary. 

The  500's  keyboard  is  not  de- 
tached, as  it  is  with  the  1000.  Rath- 
er, the  500  is  a  one-piece  computer 
and  keyboard  with  the  built-in  disk 
drive  in  the  right  side.  This  is  simi- 
lar in  structure  and  appearance  to 
the  Atari  1040ST  and  the  Commo- 
dore 128  computers.  The  500's 
motherboard  has  been  efficiently 
redesigned  so  that  the  entire  com- 
puter is  on  one  board  and,  conse- 
quently, is  cheaper  to  manufacture. 

The  500  has  the  same  system 
expansion  bus,  stereo  audio  out- 
puts, RGB  and  composite  video 
outputs,  and  two  joystick/mouse 
ports  that  the  original  1000  has. 
However,  the  genders  of  the  RS- 
232  seria!  port  and  Centronics-stan- 
dard parallel  port  were  swapped, 
allowing  the  500  to  work  with  com- 
monly available  IBM  PC  modem 
and  printer  cables.  Currently  under 
way  is  an  optional  RF  m.odulator  so 
that  the  500  can  use  a  television  as  a 
monitor. 

Expanding  the  Amiga  500  to  a 
full  megabyte  of  memory  is  an  easy 
process.  For  under  $150,  an  Amiga 
owner  can  buy  a  512K  memory  ex- 
pansion card  that  includes  a  bat- 
tery-backup realtime  clock.  The 
underside  of  the  500  has  a  small, 
easily  removable  cover  which  hides 
the  connector  for  the  expansion 
card.  The  extra  512K  can  be  in- 
stalled by  the  user  and  doesn't  re- 
quire a  trip  to  the  dealer. 

The  Genlock  video  interface, 
designed  for  the  Amiga  1000,  won't 
work  with  the  500  because  of  the 
different  physical  configuration  of 


the  machine.  However,  according 
to  one  Commodore  engineer,  a  re- 
designed Genlock  will  more  than 
likely  be  made  for  the  500. 

The  Powerhouse  2000 

As  highlighted  in  last  month's 
COMPUTE!,  Commodore's  Amiga 
2000  is  a  powerful,  expandable 
Amiga  that  can  become  an  IBM  PC 
compatible  with  the  simple  addi- 
tion of  a  Bridge  Card  that  fits  into 
two  of  the  2000's  internal  slots.  Ex- 
pandable up  to  nine  megabytes,  the 
Amiga  2000  can  run  IBM  and 
Amiga  software  simultaneously. 

The  2000  is  expected  to  sell  for 
under  $1,500,  without  monitor,  and 
will  include  one  megabyte  of  nnem- 
ory,  seven  expansion  slots,  a  built- 
in  880K  3V2-inch  floppy  drive,  three 
drive  ports,  a  detached  keyboard, 
and  a  heavy-duty  200-watt  power 
supply.  The  front  section  of  the 
2000's  system  box  contains  spaces 
for  one  additional  half-height  PC- 
compatibie  5V4-inch  disk  drive  and 
two  3'/2-inch  drives.  However,  the 
drive  spaces  can  be  used  with  any 
combination  of  floppy  and  hard 
drives  the  user  wants.  And  the 
2000's  internal  slots  allow  a  rich 
variety  of  coprocessors,  drives,  and 
boards.  Video  digitizers,  multifunc- 
tion cards,  math  coprocessors,  and 
many  more  additions  can  be  used 
in  the  slots.  Additionally,  any  hard 
disk  you  use  with  the  Amiga  2000 
can  be  partitioned  into  Amiga  and 
PC-compatible  sections.  The  data 
in  the  drive  can  be  passed  back  and 
forth  between  the  two  sections,  as 
well. 

Physically,  the  2000  has  a  few 
other  changes.  The  keyboard,  joy- 
stick, and  mouse  ports  are  on  the 
front  rather  than  on  the  right  side 
and  the  underside  as  on  the  1000. 
The  rear  of  the  2000  has  standard 
connectors  and  IBM-style  vertical 
slots,  rather  than  the  lOOO's  non- 
standard connectors.  The  95-key 
keyboard  has  also  been  enlarged 
and  redesigned. 

Commodore's  new  $500  A2080 
long-persistence  monitor  can  be 
used  with  the  2000,  reportedly  elim- 
inating the  screen  jitters  that  can  be 
seen  on  the  1000  in  the  Amiga  high- 
resolution  screen  modes. 

Although  some  observers  be- 
lieve that  Commodore  will  eventu- 
ally retire  the  Amiga  1000  in  favor 
of  the  two  newer  models,  current 


1000  owners  have  nothing  to  fear 
since  the  three  machines  are  per- 
fectly compatible.  Commodore  offi- 
cials, at  this  point,  say  that  they 
have  no  intention  of  stopping 
Amiga  1000  production  as  long  as 
there's  a  continuing  market  for  the 
machine. 

With  the  Amiga  500  and  2000, 
Commodore  has  answered  the  call 
of  many  Amiga  fans  who  wanted 
either  a  low-cost  Amiga  or  a  more 
expandable  Amiga.  They  now  have 
both.  Judging  from  the  reactions  of 
those  who  saw  the  sneak  previews 
of  the  new  Amigas  at  Commodore's 
CES  booth,  the  future  of  the  Amiga 
seems  brighter  than  ever. 

Atari  Turns  Blue 

Meanwhile,  over  at  the  Atari  booth, 
still  more  interesting  hardware  was 
on  display.  Atari  announced  three 
new  ST-series  computers  and  an 
under-$l,000  laser  printer  that  will 
make  it  possible  to  assemble  a  com- 
plete desktop  publishing  system  for 
the  unheard-of  price  of  $3,000.  But 
paradoxically,  it  wasn't  this  new 
technology  that  focused  most  of  the 
attention  on  Atari  at  CES, 

Instead,  it  was  Atari's  an- 
nouncement of  two  IBM  PC  compa- 
tibles at  rock-bottom  prices  that 
reaped  the  most  press  coverage  and 
sent  Atari's  newly  public  stock 
soaring.  Both  of  the  Atari  PCs  are 
aimed  at  the  burgeoning  clone  mar- 
ket now  ruled  by  Tandy,  Leading 
Edge,  Epson,  and  Blue  Chip.  Atari 
plans  to  undercut  them  all  with  two 
models  priced  at  $499  and  $699. 

Both  models  include  512K 
RAM  (expandable  to  640K  on  the 
motherboard);  an  additional  256K 
of  video  RAM,  freeing  up  the  main 
memory  for  programs;  an  internal 
5y4-inch  floppy  disk  drive;  RS-232 
serial  and  Centronics-standard  par- 
allel ports;  a  mouse  port  and  mouse 
controller;  composite  and  PC-stan- 
dard RGBI  video  outputs;  software- 
switchable  clock  speeds  of  4.77 
megahertz  (the  same  as  the  IBM 
PC)  and  8  megahertz  (turbo  mode); 
a  socket  for  an  8087  math  coproces- 
sor; a  PC-style  detached  keyboard; 
and  a  built-in  color  graphics 
adapter. 

The  $699  model  adds  a  built-in 
monochrome  display  adapter;  Her- 
cules display  adapter;  enhanced 
graphics  adapter  (EGA);  and  an 
EGA-compatible    green-screen 
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HEREIN  LIES  THE  KEY  TO  MAGICA 


P^ 


(  r  i^'-  i'l    '■^ri  iLt  ^>r 
Old  South  Road... 
hear'nghc  at  ihc  fork  . .  take  a 

.'left  at  East  Road,  past  Weather- 
top  Moilntairi . . .  theri . . .  enter 

'the  world  of  J.R.R.  Tolkier^'s 
classic  fantasy  novels.  Roam 
about  in  this  captivating,  imag- 
inary world,  filled  with  crea- 
tures and  situations  beyond 
your  wildest  dreams.  Become 
Bilbo  Baggins! 

This  season,  Addison- Wesley 
and  Melbourne  House  Soft- 
ware take  a  step  beyond  THE 
HOBBIT  to  bring  you 
Tolkien's  THE  FELLOW- 
SHIP OF  THE  RING.  In 
addition  to  the  features  and 
exceptional  graphics  that  made 
THE  HOBBIT  a  software 


h.-rscnei,  THE  FELLOWSHIP 
OF  THE  RING  contains  two 
complete,  consecutive  adven- 
tures. This  program  has  over 
100  graphic  locations,  which 
allow  you  to  see  Middle-earth 
through  the  eyes  of  Frodo, 
Sam,  Merry,  and  Pippin. 


E  ADVEN' 


You  can. assume  the  role  of  any 
one  of  these  characters-or 
play  with  up  to  3  friends,  each 
of  whom  can  become  a  differ- 
ent Hobbit. 

THE  FELLOWSHIP  OF  THE 
RING  and  THE  HOBBIT  are 
available  now  at  your  local  com- 
puter store,  bookstore,  or  wher- 
ever software  is  sold.  Your 
opportunity  to  live  a  few  hours 
of  your  life  as  a  Hobbit  is  here! 

THE  FELLOWSHIP  OF 
THE  RING  and  THE 
HOBBIT  are  available  for 
the  Apple  lle/IIc,  the 
Commodore  64/128,  and 
the  IBM  PC/PCjr. 

V  Addison-Wesle  V 

Reading,  Massachusetts  01867    ;, 


The  Atari  PC  is  a  low-priced  IBM  compatible  with  512K  RAM  and  a  wide  variety  of 
built-in  display  adapters  and  interfaces.  Two  models  are  priced  at  $499  and  $699. 


monitor.  This  makes  it  the  lowest- 
priced  EGA  system  by  far — a  plug- 
in  EGA  board  by  itself  now  costs  at 
least  $200. 

Atari  says  both  models  will 
also  come  with  the  disk-based  MS- 
DOS  3.2  operating  system;  GW- 
BASIC;  the  MS-DOS  version  of 
Digital  Research's  GEM  (Graphics 
Environment  Manager);  and  some 
applications  software  for  which 
Atari  is  still  negotiating.  According 
to  Atari,  the  clones  should  be  avail- 
able from  computer  dealers  and 
mass  merchants  sometime  this 
spring. 

A  Question  Of  Slots 

Atari's  announcement  stole  consid- 
erable thunder  from  other  manu- 
facturers who  were  showing  PC 
clones  at  CES — including  Commo- 
dore, Amstrad,  Blue  Chip,  and  Vic- 
tor (see  below).  Generally  they 
responded  by  ignoring  Atari  or  by 
criticizing  the  Atari  clones  for  lack- 
ing expansion  slots.  Instead  of  the 
internal  slots  found  in  most  PC 
compatibles,  the  compact  Atari  PCs 
have  a  connector  for  adding  an  ex- 
ternal expansion  box  with  slots.  As 
the  other  manufacturers  pointed 
out.  Atari  didn't  even  have  a  proto- 
type of  the  expansion  box  on  display. 
Given  the  mass  consumer  mar- 
ket that  Atari  is  pursuing  .with  its 
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clones,  the  lack  of  internal  slots 
probably  won't  be  a  major  factor. 
Atari  says  its  goal  is  to  sell  "precon- 
figured"  PC  clones  that  are  ready  to 
run  straight  from  the  box,  including 
software.  The  Atari  PCs  already  in- 
clude most  of  the  options  that  a 
typical  IBM  PC  owner  buys  in  the 
form  of  add-on  boards. 

However,  there  are  two  excep- 
tions: The  Atari  PCs  have  no  room 
to  add  a  second  internal  floppy  disk 
drive,  and  the  absence  of  slots 
means  there  is  no  place  to  plug  in 
one  of  the  inexpensive  hard  disk 
cards  that  are  so  popular  with  PC 
users. 

Atari  was  ready  with  two  an- 
swers to  these  criticisms.  First,  addi- 
tional 5% -inch  floppy  drives  can  be 
added  externally,  and  ST-series  3V2- 
inch  floppy  drives  can  be  plugged 
directly  into  an  Atari  PC.  Since  the 
ST  drives  are  compatible  with  the 
IBM  3V2-inch  disk  format,  the  Atari 
PCs  are  a  step  ahead  of  most  clones 
in  the  trend  toward  3V2-inch  disks. 
Second,  Atari  showed  a  prototype  of 
an  external  20-megabyte  hard  disk 
drive  that  fits  neatly  atop  the  Atari 
PC  system  unit. 

Of  course,  external  floppy 
drives  add  to  desk  clutter,  and  the 
announced  price  of  the  20-mega- 
byte hard  disk— about  $700— is 
roughly  twice  as  high  as  the  lowest- 


priced  hard  disk  cards  available  for 
other  PC  compatibles.  Still,  Atari 
doesn't  perceive  these  shortcom- 
ings as  major  weaknesses  in  a  pair 
of  dones  aimed  at  the  mass  market. 
Atari  has  other  markets  in 
mind  as  well.  "We  have  a  total 
commitment  to  a  full  line  of  PC 
compatibles,"  said  Atari  President 
Sam  Tramiel.  Later  this  year,  ac- 
cording to  Tramiel,  Atari  will  an- 
nounce a  turbo  XT  clone  and  an  AT 
clone,  both  with  80286  micro- 
processors. In  1988,  an  80386- 
based  machine  is  a  possibility. 
"Once  we  jump  into  the  market, 
we've  got  to  be  there  with  every- 
thing," said  Tramiel.  "We  can't  be 
just  another  'me,  too.'" 

Mega  Memory 

Atari  emphasized  that  its  jump  into 
the  PC  world  doesn't  mean  the 
company  is  abandoning  its  other 
product  lines.  To  reinforce  this,  Tra- 
miel pointed  to  the  three  new  ST 
computers,  the  low-priced  laser 
printer,  and  another  videogame 
machine  exhibited  at  CES. 

The  new  Mega  STs  are  fully 
compatible  with  the  current  520ST 
and  1040ST  computers,  but  offer 
more  memory  and  other  enhance- 
ments. They  have  one,  two,  or  four 
megabytes  of  memory;  detached 
keyboards;  internal  double-sided 
floppy  disk  drives;  battery-backup 
realtime  clocks;  blitter  chips;  and 
expansion  connectors  for  adding 
external  boxes  or  boards.  The  sys- 
tem units  are  very  compact — in 
fact,  they  use  the  same  cases  as  the 
Atari  PC  system  units.  And  like  the 
Atari  PCs,  the  Mega  STs  will  have  a 
stackable  20-megabyte  hard  drive 
available  for  around  $700. 

Atari  says  the  Mega  STs  will  be 
available  this  spring,  but  was  not 
very  firm  on  prices.  In  ballpark  fig- 
ures, the  one-megabyte  model  is 
expected  to  sell  for  slightly  more 
than  a  1040ST  (probably  around 
$1,200);  the  two-megabyte  model 
is  expected  to  come  in  at  $1,500; 
and  the  four-megabyte  model  at 
about  $2,000.  These  prices  would 
include  the  built-in  floppy  drive 
and  a  monochrome  monitor. 

One  reason  why  Atari  was 
vague  on  prices  is  that  the  Mega 
STs  will  be  among  the  first  personal 
computers  to  use  the  new  one- 
megabit  dynamic  RAM  chips.  It 
takes   only   eight   of   these   high- 
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Om  A  X  7"  T  T/~\lt  /WT~^     A  "1\  TT^  "TO"      A  IL  7"  Why  go  out  when  you  can  have  so  much 
N  I  /\Y    Hi    I  VI  h     A    \l    I   r^l      /\\   fun  at  home?  Just  take  a  gander  at  the 
k-ZAjlXX   X  ±\_/lT±JL/ JLll  1J_-/ X  -l-jrxi»kind  of  excitement  Mindscape  has  to  offer. 
With  Indoor  Sports,  you  can  play  darts  without  putting  holes  in  your  walls,  ice  an  opponent  in  air  hockey,  become  a 
Ding-pong  pro,  and  pick  up  some  spares  without  venturing  into  an  alley. 

Asa  Harrier  jump-jet  ace  in  High  Roller,  you'll  be  doing  barrel  rolls  toward  designated  targets  without  waking  the 

neighbors, 

Bop'n  Wrestle  puts  you  in  the  ring  with  10  of  the 
biggest,  baddest  bruisers  ever  to  perfect  the  turn- 
buckle  fly, 

Prepare  to  take  evasive  action  with  Infiltrator.  Foil 
your  foes  from  your  'copter's  cockpit  and  then 
convert  to  covert  ground  action  behind  enemy  lines,  In  Balance  of  Power,  you  are  the  President.  And  the  burden  of 

global  responsibility  seems  so  real  you  may  wonder  why  you  don't  have  Secret  

Service  protection.  11  yT  •        1  ~"^" 

What  do  you  have  to  lose?  For  much  less  than  the  cost  of  a  night  on  the        iVJ.inClSC313C  ""^  '  '..'.- 
town,  Mindscape  makes  home  sweet  homea  more  exciting  place  to  be.  software  that  challenges  therrnind,  .■■'..i^ 
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Atari's  Mega  ST  is  available  in  one-,  two-,  and  four-megabyte  models.  All  have  a 
detached  keyboard,  internal  floppy  disk  drive,  blitler  chip,  battery-backup  clock,  and 
expansion  bus. 


density  chips  to  yield  one  megabyte 
of  memory,  compared  to  32  of  the 
256-kilobit  RAM  chips  found  in 
current  STs  and  most  other  person- 
al computers.  Because  the  one- 
megabit  chips  are  so  new, 
production  costs  are  still  high,  and 
the  market  for  them  is  very  volatile. 
If  the  chip  prices  do  not  drop  as  fast 
as  Atari  and  other  manufacturers 
anticipate,  the  Mega  STs  will  prob- 
ably be  delayed  several  months. 

The  one-megabit  chips  also  ex- 
plain why  the  system  units  of  the 
Mega  STs  are  so  small  and  can  get 
by  without  cooling  fans.  Four  times 
as  much  memory  can  be  packed 
into  the  same  amount  of  space,  and 
less  heat  is  generated. 

Inexpensive 
Desktop  Publishing 

Atari  is  taking  advantage  of  the 
memory  and  speed  of  the  Mega  STs 
to  introduce  a  laser  printer  priced  at 
under  $1,500 — about  one-third  the 
cost  of  comparable  printers.  To 
achieve  this  reduction.  Atari  has 
modified  the  concept  of  the  laser 
printer. 

One  of  the  major  reasons  why 
laser  printers  are  so  expensive  is 
that  they're  really  powerful  com- 
puters in  their  own  right,  contain- 
ing a  16-bit  microprocessor  and  a 
few  megabytes  of  memory.  In  fact, 
it  requires  at  least  two  megabytes  of 
memory  for  a  laser  printer  to  pro- 
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duce  full-page  graphics  at  its  high- 
est resolution  of  300  dots  per  inch 
(dpi). 

Atari's  solution  is  to  remove 
the  memory  and  make  the  printer 
dependent  upon  the  computer's 
memory.  Thus,  a  two-  or  four- 
megabyte  ST  will  be  required  to 
produce  full-page,  300  dpi  graphics 
with  Atari's  laser  printer.  Half-page 
graphics  could  be  achieved  with  a 
one-megabyte  Mega  ST,  1040ST,  or 
expanded  5205T.  An  unexpanded 
520ST  with  512K  of  memory  could 
produce  quarter-page  graphics  at 
300  dpi.  The  printer  can  use  any 
page-description  language  or  type 
font  under  software  control  from 
the  computer. 

This  approach  wouldn't  be 
possible  without  the  ST's  high- 
speed direct-memory  access  (DMA) 
port.  Capable  of  transferring  data  at 
ten  megabits  per  second,  the  DMA 
port  is  fast  enough  to  drive  the  laser 
printer  while  the  computer  is  buff- 
ering an  entire  page  of  text  and 
graphics  in  RAM.  No  other  person- 
al computer  currently  on  the  mar- 
ket is  fast  enough  to  do  this. 

Therefore,  a  complete  desktop 
publishing  system  capable  of  full- 
page,  300  dpi  graphics  will  cost 
about  $3,000— roughly  $1,500  for 
the  laser  printer  and  $1,500  for  the 
two-megabyte  Mega  ST.  It  also 
means  that  Atari  will  sell  a  Mega  ST 
with   almost   every   laser   printer, 


since  no  other  computer  (besides  an 
expanded  520ST  or  1040ST)  can 
drive  Atari's  printer. 

A  Secret  Engine 

With  more  than  two  megabytes  of 
memory,  it's  possible  that  an  ST 
could  run  another  application  while 
driving  the  laser  printer,  according 
to  Atari.  Otherwise,  the  computer 
will  be  tied  up  while  the  printer 
does  its  work — something  that's 
not  a  problem  with  other  laser 
printers  that  have  their  own  memo- 
ry. Even  with  this  handicap,  how- 
ever. Atari's  low-ball  desktop 
publishing  system  will  probably  at- 
tract those  who  can't  afford  more 
expensive  systems. 

The  printer's  output  is  equiva- 
lent in  quality  to  pages  produced  by 
competing  printers,  largely  because 
the  printer  uses  a  Japanese  printer 
engine  virtually  identical  to  those 
found  in  other  printers.  Atari  would 
not  reveal  the  manufacturer  of  the 
engine,  saying  only  that  two  Japa- 
nese suppliers  are  involved — one 
for  the  U.S.  market  and  one  for  the 
European  market.  The  prototype 
printer  exhibited  at  CES  contained 
a  Canon  printer  engine,  but  Atari 
said  this  was  not  the  engine  being 
used  in  production  models.  Atari 
says  the  production  printer  will 
work  at  eight  pages  per  minute — 
fairly  fast  for  a  laser  printer. 

The  Atari  PCs,  Mega  STs,  and 
laser  printer  overshadowed  Atari's 
other  significant  announcements  at 
CES: 

•  Prices  were  cut  slightly  for 
the  1040ST  and  drastically  for  the 
520ST.  The  monochrome  10405T 
system  was  reduced  from  $999  to 
$899;  the  color  1040ST  system  was 
cut  from  $1199  to  $1099;  and  the 
monochrome  520ST  system  was 
slashed  from  $799  to  $499,  putting 
it  directly  in  competition  with 
eight-bit  computers  like  the  Com- 
modore 128  and  Apple  lie. 

•  The  blitter  chip  upgrade  for 
520STs  and  1040STs  was  expected 
to  be  released  in  March.  It  includes 
the  blitter  chip  (which  speeds  up 
memory  moves,  and  therefore, 
screen  graphics),  plus  six  ROM 
chips  that  contain  a  new  version  of 
the  T05  operating  system  slightly 
modified  for  the  blitter.  (No  other 
changes  were  made  to  TOS.)  Atari 
says  the  blitter  chip  can  be  switched 
on  or  off  to  reduce  compatibility 


problems  with  some  existing  soft- 
ware. The  upgrade  is  expected  to 
cost  less  than  $100,  including 
installation. 

•  The  SX212  Hayes-compatible 
modem  should  finally  be  available 
this  spring.  It  works  at  300  or  1200 
bits  per  second  with  any  computer 
that  has  an  RS-232  serial  port,  in- 
cluding all  STs.  The  modem  also 
has  an  SIO  (Serial  Input/Output) 
port  so  it  can  be  plugged  directly 
into  an  Atari  400/800,  XL,  or  XE 
without  an  interface.  Retail  price: 
$99. 

•  Behind  glass.  Atari  showed  a 
prototype  of  a  new  videogame  ma- 
chine based  on — believe  it  or  not — 
a  stripped-down  Atari  65XE  home 
computer.  Basically,  the  game  ma- 
chine is  a  65XE  without  a  keyboard. 
One  Atari  spokesman  explained 
that  the  65XE  hasn't  been  selling 
particularly  well  in  the  U.S.,  partly 
because  the  130XE  offers  twice  as 
much  memory  (128K)  for  only  a 
little  more  money  (roughly  $139 
versus  $89).  At  the  same  time.  Atari 
has  been  enjoying  a  recent  resur- 
gence in  videogames,  selling  thou- 
sands of  2600s  and  7800s.  By 
converting  the  65XE  into  a  game 
machine.  Atari  figures  it  can  sell 
more  units  and  expand  the  market 
for  cartridge-based  software.  And 
in  another  twist.  Atari  might  offer  a 
plug-in  keyboard  for  the  game  ma- 
chine that  would  turn  it  back  into  a 
65XE  computer. 

The  Clone  Wars 

As  noted  earlier,  the  MS-DOS  inva- 
sion was  very  much  in  evidence  at 
CES.  Although  Atari's  PC  compati- 
bles got  the  jump  on  several  rivals 
because  of  Atari's  surprise  intro- 
duction and  the  low  pricing,  Com- 
modore and  other  computer 
manufacturers  showed  PC  clones 
that  they  are  pushing  aggressively 
in  the  U.S.  market.  Several  compa- 
nies, including  Tandy,  Blue  Chip 
Electronics,  and  Leading  Edge, 
have  gotten  a  big  headstart  in  the 
PC-clone  distribution  and  visibility 
races.  Commodore,  Atari,  and  the 
other  new' entries  in  this  fight  will 
have  to  work  hard  to  establish 
themselves. 

Commodore  exhibited  two 
versions  of  a  PC  compatible,  the 
$999  PClO-1  and  the  $1,199  PCIO- 
2.  Although  somewhat  higher  in 
price  than  Atari's  clones  and  those 
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FREE  OFFER  WITH  A 

3,000-YEAR  GUARANTEE. 

What  a  deal!  Your  first  Shanghai"  game's  on  usljust 

send  for  your  free  Shanghai  demonstration  disk  which 

contains  one  tantalizing  puzzle.  It's  guaranteed  to 

whet  your  appetite  for  the  billions  ofoptions  on  the 

complete  disk. 

What  makes  us  so  sure?  History.Shanghai  is  derived 

from  the  ancient  oriental  game  of  Mahjongg,  which 

has  captured  players'  imaginations  for  over  30 

centuries. 

Find  out  what  a  3,000-year  obsession  is  all  about. 

Write  for  your  free  Shanghai  Demo; 

Activision,  Inc. 

PC.  Box  7287 

Mountain  View, CA  94039 

Enclose  a  $3.00  check  for  postage  and  handling. 
Please  be  sure  id  specify  your  computer  system. 
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•  1 60,  -  1 80  CPS  •  Near  Letter  Quality  • 


Lifetime  Warranty 


Beiow 

Wholesale 

Cost  Prices!!! 


List  $499.95 


Fantastic 
Price 


60%  OFF  LIST  PRICE 
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NLQ-180  Premium  Quality  PrintBr 

Near  Letter  Quality  Selectable  From  Front 

Panel  Controls  •  High  Speed  Dot  Matrix* 

Letter  Quality  Modes  •  8K  Buffer  frees  up 

computer  4-times  faster  •  Pica,  Elite, 

Italics,  Condensed  •  Super  Graphics  • 

Business  or  Personal  •  Tractor/Friction  • 

15  Day  Free  Trial  •  Lifetime  Warranty  on 

Print  Head*  •  6  Month  Immediate 

Replacement  Warranty  • 

NLQ- 180  Print  Samples 


Lifetime  Warranty" 


This    is    an    exawpl6    of    ITALICS 
E  n  l->  .SI  n  c:  ^  cd  Boldface 

Condensed  Text  Double-strike 

example   of    Near   Letter    Quality 


—  IBM  —  COMMODORE  —  EPSON NLQ  1 80  SPiCIFIC ATIQNS apple  —  ATARI  —    ETC 


Prim  Buffer 

8K  bytes  utility  buffer 

Printing  Direction 

Text  Mode  —  Bi-directional 

Graphic  Mode  —  Uni-directional 

Interface 

Centronics  type  parallel  (8-bit) 

Paper 

Plain  paper,  Roll  paper,  Single  sheet 

Fanfold,  Multipart  paper:  max.  3  sheets 

(original  plus  2  copies) 

Cliaracter  Fonts 

Pica,  Elite.  Italics,  Condensed 


Printing  Method 

Impact  dot  matrix 

Printing  Speed 

160-180  CPS  at  standard  character  printing 

Printing  Characters 

Standard  9x9  dot  matrix 
NLQ  12x18  dot  matrix  (33cps) 

Character  size;  2.12  x  2.8  mm  (standard) 
Character  sets;  Full  ASCII  character  set  (96) 
32  International  characters 


INTIRFACIS 


Inlc  Ribbon  Cartridge 

Ribbon  Life:  3  million  characters /cartridge 
Physical  Dimensions 
Size:  15"xl2"x5" 
Weight:  12.7  lbs. 
Maximtim  Number  of  Characters 

Standard:  lOcpi         SOcpl 

Standard  enlarged:  5  cpi        40  cpl 

Elite:  12  cpi         96  cpl 

Elite  enlarged:  6  cpi        48  cpl 

Condensed;  17  cpi        132  cpl 

Condensed  enlarged:  8.5  cpi         66  cpl 

Condensed  elite:  20  cpi        160  cpl 


Atari  $39.95      Apple  $49.95      Commodore  $29.95      IBM  $49.95      Loser  $19.95 


Add  $10.00  for  thipping,  handling,  and  Iniurance.  Illinois  residents  please  odd 
6'/.  •/.  sales  tax.  Add  20.00  for  CANADA,  PUERTO  RICO,  HAWAII,  ALASKA, 
APO-FPO  orders.  All  orders  must  ba  In  U.S.  Dollors.  WE  DO  NOT  EXPORT  TO 
OTHER  COUNTRIES  EXCEPT  CANADA,  Enclose  Cashier  Check,  Money  Order  or 
Personal  Check.  Allow  1 4  days  for  delivery,  2  to  7  days  lor  phone  orders,  I  day 
express  mall.  Prices  &  Availability  sub|ect  to  charfge  without  notice, 

VISA  —  MASTtR  CABP  —  C.O.P.  C.O.D.  on  phone  orders  only. 


COMPUTER  DIRECT 

We  Love  Our  Customers 

22292  N.  Pepper  Rd.,  Barrington,  111.60010 

312/382-5050  to  order 


^^^Complet^AppIe®  Compatible 

Word  Processing  System 

•  15  Day  Free  Trial      •      90  Day  Warranty  • 

Home  •  Business  •  School  •  Word  Processing 


Look  At  All  You  Get  for  only  $519.00 


Laser  128  Apple  Compatible  Computer 

Big  Blue  Printer 

12"  Hi-Resolution  Monitor 

Magic  Window  lie  wordprocessor 

Magicalc  Spreadsheet 

Magic  Memory  Data  Base 

Laser  128  Big  Blue  Printer  Interface 

2  Rolls  of  Paper 

Comparable  Apple  System  ($2495.00) 


List  Price 

Sale  Price 

$499.00 

$395.00 

199.00 

39.95 

229.95 

99.95 

150.00 

39.95 

150.00 

39.95 

60.00 

29.95 

19.95 

12.95 

19.95 

9.95 

$1327.85 

$667.69 

Magic  Window  He:  Word  processing  is 
easy  and  more  efficient  because  of  a 
simple-to-read  menu  system  and  editing 
commands.  Many  powerful  features  of 
professional  quality  programs  and 
more.  Supports  virtually  all  major 
printer  functions.  Operates  with  most  80 
column  video  cards  or  40/70  column 
no-hardware  modes. 


Magicalc:  Rated  as  the  best  electronic 
spreadsheet  on  the  market  for  Apple. 
The  speed  with  which  P  Magicalc  solves 
number  problems  allows  you  to 
accurately  analyze  decisions 
beforehand.  Supports  multiple  RAM 
cards  of  most  manufacturers  in  any 
combinations  up  to  a  full  512  K. 


All  8  Pieces  Only  $519 

Magic  Memory:  File  anything,  any  way 
you  want  to;  names,  addresses, 
important  numbers,  dates  and  notes. 
Your  information  is  organized  simply, 
easy  to  maintain,  and  available 
instantly.  Supports  all  popular  printers 
and  video  cards. 


Apple®  1ft  th9  registered  Irodemark  of  Apple  Compulars  Inc. 


Add  (35.00  for  shipping,  hondling  and  insurance.  Illinois  reildenli 
please  odd  dV,  %  sales  tox.  Add  $70.00  for  CANADA,  PUERTO  RICO, 
HAWAII,  ALASKA,  APO-FPO  orders.  Ail  orders  must  be  In  U.S. 
dollofs.  WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES,  EXCEPT 
CANADA.  Enclose  Cashier  Check,  Money  Order  or  Personel  Check. 
Allow  1 4  da/9  for  delivery,  2  to  7  days  for  phone  orders,  1  day  express 
moil  I  Prices  S  Avallabillfy  subject  to  chonge  without  notice. 
VISA  —  MASTER  CARD  —  C.O.D.  C.O.D.  on  ptione  orders  only 


Computer  Directj 

We  Love  Our  Customers 

22292  N.  Pepper  Rd.,  Barrington,  Illinois  60010 

3  1  2/382-5050  to  order 


of  several  other  manufacturers, 
Commodore's  North  American 
general  manager  Nigel  Shepherd 
was  quick  to  point  out  that  the  ma- 
chines will  be  sold  in  different  mar- 
kets  by  different  dealers. 
Commodore  plans  to  give  its  deal- 
ers profit  margins  of  35  percent  to 
help  get  the  Commodore  PCs  dis- 
tributed widely.  They'll  also  be  sold 
by  computer  dealers  rather  than  in 
mass  market  outlets, 

"We  haven't  gone  for  the  jugu- 
lar on  price,"  he  said.  "It's  a  very 
competitive  business.  What  we've 
gone  for  with  the  PC  is  a  price/ 
feature  combination  that  gives  the 
dealer  a  margin  [of  profit].  And  we 
think  it  will  give  us  acceptable  mar- 
ket share  and  acceptable  profits." 

Although  it  may  seem  odd  to 
many  American  Commodore  fans 
that  their  favorite  company  is  mak- 
ing and  selling  a  PC  clone.  Commo- 
dore has  actually  been  selling  these 
PCs  in  Canada  and  Europe  for 
some  time.  With  the  current  explo- 
sion of  MS-DOS  machines  in  the 
U.S.,  Commodore  officials  decided 
the  market  was  ripe  for  their  entry 
here  also. 

The  $999  PClO-1  has  one 
built-in  360K  double-sided, 
double-density  disk  drive  and  512K 
of  RAM,  which  can  be  expanded  to 
640K.  The  $1,199  PClO-2  has  two 
drives  built  in  and  640K  of  RAM 
standard.  And  both  systems  have 
space  for  a  half-height  or  full- 
height  hard  disk. 

Beyond  those  differences,  the 
computers  are  identical.  Each  has 
the  8088  microprocessor  running  at 
a  clock  speed  of  4,77  MHz,  MS- 
DOS  3.2,  a  PC-XT  compatible 
BIOS,  a  PC-XT  compatible  key- 
board, and  GW  BASIC  3.2.  There 
are  five  full-size  expansion  slots, 
and  the  machines  also  have  as  stan- 
dard equipment  an  RS-232  serial 
port,  a  Centronics  parallel  port,  and 
an  ATI  Graphics  Solution  Adapter, 
which  is  a  built-in  monochrome 
and  color  display  card  compatible 
with  IBM,  CGA,  MDA,  Hercules, 
and  Planatronics  video  modes.  The 
power  supply  can  handle  a  40-meg 
hard  disk,  two  floppy  drives,  and 
five  expansion  cards.  Commodore 
is  also  bundling  with  each  PC  the 
popular  Borland  Sidekick  desktop 
organizer. 

Although  Commodore  has  had 
considerable  success  with  the  PC 
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Commodore's  $1,199  PClO-2  is  a  PC  compatible  with  two  disk  drives,  640K  of 
RAM,  atid  five  expansion  slots.  Commodore  also  introduced  to  the  U.S.  market  the 
one-drive  PClO-1  with  512K  of  memory. 


compatibles  in  Europe  and  Canada, 
the  low  prices  of  other  PC-clone 
competitors  in  the  U.S.  market  will 
put  pressure  on  Commodore  to 
lower  the  prices  of  its  PCIO  systems. 

Amstrad  From  England 

Among  the  companies  at  CES  that 
were  also  showing  PC  compatibles 
were  Amstrad,  Franklin,  and  Vic- 
tor, each  of  which  seems  deter- 
mined to  fight  vigorously  for  the 
PC-compatible  buyers'  attention. 

Amstrad  is  a  British  computer 
manufacturer  that  has  had  success 
in  selling  its  PC  512  PC  clone  sys- 
tems in  Great  Britain  and  Europe. 
The  computer  has  now  entered  the 
U.S.  and  is  being  distributed  by 
Video  of  Longview,  Texas. 

The  Amstrad  PC  512  comes 
with  512K  of  RAM,  expandable  to 
640K,  an  8086  microprocessor  run- 
ning at  8  MHz,  MS-DOS  3.2,  three 
full-size  expansion  slots,  a  choice  of 
one  or  two  360K  S'A-inch  floppy 
disk  drives  or  one  floppy  with  one 
20-megabyte  hard  disk  drive,  stan- 
dard RS-232  serial  and  parallel  in- 
terfaces, a  battery-backed  realtime 
clock,  mouse,  and  a  socket  for  an 
8087  math  coprocessor. 

The  PC  512  systems  can  be 


purchased  for  as  little  as  $799, 
which  includes  a  single  drive  and  a 
monochrome  monitor;  or,  for  as 
much  as  $1,499,  which  includes  a 
20-meg  hard  drive  and  color  moni- 
tor. There  are  several  variations  of 
features  and  prices  between  those 
two  systems,  as  well.  The  Amstrad 
units  also  come  with  Digital  Re- 
search's GEM  Desktop,  GEM  BASIC 
2,  and  GEM  Paint  software  and  the 
user  manuals. 

The  Amstrad  machines  will  be 
sold  in  mass  market  outlets  in  the 
U.S.,  similar  to  the  distribution  sys- 
tem used  in  Europe,  "We  plan  to 
approach  the  mass  market  channels 
in  the  United  States  and  feel  that 
the  market  will  require  a  substantial 
volume  to  fill  demand,"  said  Video 
president,  Vernon  Moore. 

Franklin  And  Victor 

Franklin  Computer,  which  previ- 
ously sold  only  Apple-compatible 
computers  and  equipment,  has  en- 
tered the  PC-compatible  market 
with  two  different  machines — the 
$699.95  PC-6000  and  the  $799.95 
PC-8000. 

The  standard  features  for  each 
computer  include  512K  of  RAM, 
which  is  expandable  to  640K;  built- 


Features  of  Cadpak: 

•  dimensioning  for  exact  scaled  output 

•  works  with  lighlpen  or  keyboard 

•  copy  artwork  between  two  screens 

•  print  in  two  sizes-full  or  1/4  page 

•  add  text  in  four  different  sizes — 
three  special  fonts  included 

•  includes  three  tutorials 

•  create  librarys  of  objects  with  Object 
Editor-math  and  electronic  included 

•  design  your  own  pattern  fills 

■  size,  rotate  and  reflect  objects 

•  work  in  metric  or  cnglish  sizes 

•  includes  USA  map  outline 
•C-128  added  features: 

•  draw  curves  with  up  to  1 1  points 

•  create  templates  which  you  can 
size  or  rotate  at  any  degree 

•  larger  work  area  (640x360  pixels) 


Cadpak 

Design  pictures  and  graphics  quickly  and 
precisely.  Unlike  other  drawing  programs, 
you  can  produce  exact  scaled  output  on  your 
printer.  Design  in  the  units  of  your  drawing 
problem  (feet,  miles,  meters,etc.)  and  send 
hardcopy  to  most  printers.  Uses  either  the 
keyboard  or  a  lightpen.  Two  separate  work 
screens — transfer  artwork  from  one  screen 
to  the  other.  Place  text  in  four  sizes 
anywhere  in  the  picture — three  extra  fonts 
included:  Old  English,  3-D  and  Tech.  "Try 
Again"  functions  allows  you  to  undo  a 
mistake.  Solid  or  dashed  lines,  circles, 
ellipses  at  any  angle,  rays  and  boxes.  Save 
and  edit  fill  patterns,  fonts  and  objects. 
Cadpak  is  the  full-featured  design  package 
for  your  Commodore  computer. 


for  the  C-64 
for  the  C-128 


$39.95 
$59.95 


Design  an  addition  to  your  house. 
Remodel  your  apartment... 
Create  a  layout  for  your  garden- 
Draw  schematic  diagrams... 
Engineer  a  new  widget... 
all  to  scale! 


Features  of  Super  Pascal: 

•  full  implementation  of  Jensen  & 
Wirth  Pascal 

•  C-64  high-speed  DOS  (3X  faster) 

•  includes  many  language  extensions 
for  systems  programming 

•  integrated  assembler  for  machine 
code  requirements 

•  buiit-in  editor  with  renumber,  find, 
auto,  change,  append,  delete 

•  includes  fast  graphic  library 

•  large  48 K  workspace 

•  works  with  one  or  two  drives 

•  advanced  error  handling 

•  C-128  version  supports  80-column 
hires  graphics 

•  with  220-page  manual 


Super  Pascal 

Your  complete  system  for  developing 
applications  in  Pascal.  Super  Pascal  is  a 
complete  implementation  of  standard  Pascal 
(Jensen  and  Wirth).  C-64  version  has  a 
high-speed  DOS  (3X)  that  makes  using  it 
quick  and  efficient.  The  extensive  editor 
(source  included)  contains  added  features: 
append  files,  search  and  replace.  Includes 
an  inline  assembler  for  optionally  coding  in 
machine  language.  Super  Pascal  is  so 
capable  that  it's  used  in  hundreds  of  schools 
to  teach  Pascal.  But  it  can  be  used  for  more 
than  just  learning  Pascal,  use  it  for  serious 
programming.  The  graphic  library  (source 
included)  is  written  in  machine  language  for 
fast  execution.  Want  to  learn  Pascal  or 
develop  software  using  the  best  tool  avail- 
able? Super  Pascal  is  your  first  choice. 


for  the  C-64 
for  the  C-128 


$59.95 
$59.95 


Abacus 
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P.O.  Box  7219  •  Dept.  C4  •  Grand  Rapids,  MI  49510  •  Telex  709-101  •  Phone  616/241-5510 
Call  now  for  the  name  of  the  dealer  nearest  you.  Or  order  directly  using  your  MC,  Visa  or  Amex  card.  Add  $4.00  per 
order  for  shipping.  Foreign  orders  add  $12.00  per  item.  Call  (616)241-5510  or  write  for  your  free  catalog.  30-day  money 
back  software  guarantee.  Dealers  inquires  welcome-over  2000  dealers  nationwide. 


in  360K  floppy  drive  (the  8000  has 
two  drives);  built-in  serial,  parallel, 
and  monochrome/color  graphics 
adapters;  a  game  port;  and  MS- 
DOS  3.1.  An  optional  realtime 
clock  with  battery  backup  is  avail- 
able for  $39.95,  and  a  GW-BASIC 
and  MS-DOS  3.2  package  can  be 
purchased  for  $99. 

Franklin  is  aiming  its  PC  com- 
patibles at  mass  market  chains. 
Some  of  the  major  outlets,  such  as 
Sears  and  Electronics  Boutique, 
which  already  carry  the  Franklin 
Ace  Apple-compatible  computers, 
are  now  selling  the  new  Franklin 
PCs,  according  to  Franklin's  presi- 
dent Morton  E.  David.  And  like 
Atari,  with  its  PC  compatibles  that 
are  usable  right  out  of  the  box, 
Franklin  and  Amstrad  are  banking 
on  capturing  the  consumers  who 
don't  want  to  have  to  learn  about 
expansion  slots,  accelerator  cards, 
math  coprocessors,  and  the  like. 

Another  MS-DOS  machine  is 
the  Champion  from  Victor.  Intro- 
duced last  fall,  the  $799  Champion 
PC  compatible  is  an  IBM  PC/XT 
clone  that  uses  an  8086  micro- 
processor running  at  4.77  MHz. 
The  system  includes  640K  of  mem- 
ory, five  expansion  slots,  standard 
serial  and  parallel  ports,  MS-DOS 
3.1,  G'H  BASIC,  one  360K  floppy 
drive  (a  second  is  optional),  a  de- 
tachable PC/AT-style  keyboard, 
and  a  monochrome  graphics  card. 
An  optional  high-resoludon  mono- 
chrome monitor  is  available  for 
$119. 


The  New 
Commodore  128D 

Not  all  of  the  computer  news  at 
CES  focused  on  the  16-bit  ma- 
chines and  the  MS-DOS  clones. 
The  Commodore  64  and  128  com- 
puters have  continued  to  sell  ex- 
tremely well.  And  that  has  resulted 
not  only  in  much  new  software  for 
these  computers,  but  also  several 
important  hardware  additions. 

One  of  the  most  noticeable 
changes  within  the  Commodore 
booth  was  an  additional  configura- 
tion of  the  128.  The  Commodore 
128D  is  actually  the  same  machine 
functionally  as  the  earlier  128,  but 
is  structured  to  be  more  business- 
like in  its  appearance  and  able  to  fit 
more  easily  on  a  desk. 

The  128D  consists  of  a  system 
box  with  a  built-in  1571  disk  drive, 
a  single  power  supply,  and  a  de- 
tachable keyboard  with  a  two -foot 
cord.  The  computer  console  can 
support  a  monitor  or  monitor  stand. 
The  128D  works  with  either  a  stan- 
dard television  or  a  computer  moni- 
tor such  as  the  Commodore  1902 
RGBI/composite  color  monitor. 

This  format  of  the  Commodore 
128  has  actually  been  in  Europe  for 
more  than  a  year,  but  couldn't  be 
released  in  the  U.S.  at  that  time 
because  the  machine  couldn't  pass 
stringent  FCC  shielding  require- 
ments. Now,  redesigned  to  over- 
come that  problem,  the  computer 
can  enter  the  U.S.  market.  The  re- 
tail price  of  the  128D  should  be 
about  $550  when  available  in  May. 


The  Commodore  128D  computer  is  functionally  identical  to  the  original  128,  but 
sports  a  new  business-style  configuration  with  detached  keyboard  and  a  system  box 
with  built-in  1571  drive  that  can  support  a  monitor. 
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New  Mass  Storage 

Both  the  Commodore  64  and  the 
128  now  have  new  mass  storage 
options.  At  CES,  Commodofe  in- 
troduced the  1581  3V2-inch  disk 
drive  as  well  as  the  new  1764  RAM 
Expansion  Module  for  the  64. 


The  Commodore  1581  disk  drive  uses 
3V2-inch  disks  that  can  hold  up  to  808K 
of  data  and  can  be  used  with  the  64, 
128,  Plus  4,  and  16  computers. 

With  a  retail  price  of  $399,  the 
1581  drive  allows  the  64,  128,  Plus 
4,  and  16  computers  from  Commo- 
dore to  begin  using  the  increasingly 
popular  3Vi-inch  disks.  Not  only  do 
the  3y2-inch  disks  store  up  to  808K 
of  data,  but  their  hard  shells  and 
small  size  make  them  easier  and 
sturdier  to  use.  The  1581  is  also 
reportedly  three  times  faster  than 
the  1541  disk  drive. 

Some  Commodore  64  owners 
have  envied  128  owners  who've 
been  able  to  buy  either  the  1700  or 
1750  RAM  expanders  for  their  ma- 
chines. To  remedy  that,  Commo- 
dore announced  the  $129  1764 
RAM  Expansion  cartridge,  which 
gives  the  64  a  whopping  256K  of 
memory  for  data  or  program  stor- 
age— five  times  the  amount  64 
owners  have  been  used  to.  The  ex- 
pansion module  is  designed  to  plug 
into  the  64's  expansion  port.' 

The  module  comes  with  two 
software  packages,  as  well.  The  first 
is  a  disk  operating  system  (DOS) 
program  that  is  designed  to  help 
users  get  the  most  out  of  the  RAM 
module  as  a  RAM  disk.  In  other 
words,  memory  within  the  RAM 
expander  is  used  as  a  separate  flop- 
py drive  would  be  to  store  and  re- 
trieve frequendy  used  data.  The 
loading  and  saving  of  information 
can  be  virtually  instantaneous  with 
a  RAM  disk. 

The  second  program  bundled 
with  the  RAM  Expansion  cartridge 
is  called  the  GEOS  RAM  Disk,  a 
RAM  disk  that  is  set  to  work  under 


A  few  of  our  Bestsellers 


Anslomy  of  iti9  C-$4  Anatomy  of  tho  1S41  Drivt  Tricks  A  TpsforthfO^ 
Insider's  guide  1o  '&4  inlemafs,  Besl  handbook  on  this  drive,  Collection  of  Msy-to-use  t&cfv 
Graphics,  sound,  I/O,  Kernal.  explains  all.  Filled  with  many  nques:  advanced  graphics, 
memory  maps,  and  much  examples  programs,  uiiliiies.  impraved  dasa  input,  QP^M, 
more.  Complctft  commented  Fuiy  commented  1541  ROM  enhanced  BASIC,  data  hand- 
ROM  listings.  300pp    S19.95  Iteiirigs,             SOOpp    $19.95  ling  and  more.  275pp    S1995 


GEOS 


IN3IDI 

AND  OUT 


Abacus 


GEOS  kiaida  mnd  Out 
It  yoo  use  GEOS  then  ojr 
new  bock  has  the  info  you 
ne«d.  Detailed  inlrodiiction  is 
\eiti  out  for  the  novice.  Exam- 
ples, dtagrams  and  glossary 
are  induded.  Add  a  con&tarit 
diEpJsy  clock.. .includes  Fil*- 
MBBter,  a  utility  that  ixrverts 
your  programs  lo  GEOS 
joffnal  (with  an  icon  •dilw)... 
create  a  single-step  dmJator 
for  observing  niemfory... learn 
GEOS  fie  structures.  H  you're 
just  getting  started  with 
GEOS  or  getiang  to  the  point 
of  wanting  to  add  your  own 
applications,  then  G£OS 
tnaidt  and  Out  will  help 
you  on  you  way.  $19.96 
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C-128  INTERNALS 
Important  C-128  information. 
Covers  graphic  chips,  MMU^ 
I/O,  80  column  graphics  anO 
fjlly  commentad  ROM 
listings,  more.  500pp  Si  9. 95 


J57J  INTEftNALS 
Essential  reference.  Internal 
drive  functions.  Explains 
various  di&K  and  fite  formats. 
Fully-commented  flOM 
listings.  450pp  319.95 


C-129  Trfia<S  S  TIPS 
Fascinaiing  and  practical  info 
on  the  C-123.  BO-col  hires 
graphics,  bank  Switching. 
300  pages  of  useful  inform- 
ation for&veryone.        519  95 


C-123  PEEKS  &  POKES 
Dozens  o(  programming 
quick-hitters,  techniques  on 
the  operating  system,  stacks, 
zero  page,  pointers,  and 
BASiC.  240pp  S16-95 


C'l288ASIC7.0lnlgmats 
Gel  all  the  inside  infc  on 
BASIC  7.0.  This  exhaustive 
handbook  is  complete  with 
fully  commented  BASIC  70 
ROW  lEtings,  S24.9S 
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the  popular  GEOS  operating  system 
and  its  applications.  GEOS  requires 
disk  access  numerous  times,  and 
the  additional  memory,  when  used 
as  a  RAM  disk,  turns  GEOS  and  its 
applications  into  much  easier  and 
faster  programs. 

More  f^emory 

For  those  who  just  can't  seem  to  get 
enough  memory,  two  third-party 
companies  also  exhibited  their  hard 
drives  for  the  64  and  128  in  the 
Commodore  booth, 

JCT  (P.O.  Box  286,  Grants 
Pass,  OR  97526)  has  10-meg 
($795),  5-meg  ($695),  and  3.7-meg 
($595)  hard  drives.  These  work 
with  any  machine  that  uses  the 
Commodore  serial  bus  (128,  64, 
Plus/4,  16,  or  VIC,  for  example). 
Data  transfer  on  the  JCT  drives  is 
1.7-2  times  faster  than  on  the  1541, 
but  a  parallel  option  for  speeds 
10-20  times  faster  is  available  (ca- 
ble and  cartridge  are  $50). 

Xetec  (2804  Arnold  Rd.,  Salina, 
KS  67401)  displayed  its  Lt.  Kerna! 
20-Meg  Hard  Disk  Drive.  Devel- 
oped by  Fiscal  Information,  this 
drive  was  originally  announced 
more  than  two  years  ago,  but  never 


distributed.  Cardco,  a  software 
company,  announced  its  intention 
to  distribute  the  drive,  but  soon 
after,  Cardco  went  out  of  business. 
Xetec,  awaiting  FCC  approval  at  the 
time  of  the  show,  plans  to  have  the 
drive  available  through  dealers  by 
the  time  you  read  this.  The  suggest- 
ed retail  price  for  the  64  version  is 
$899;  for  the  128  version,  $949, 

Commodore  64  owners  will 
also  be  happy  to  know  that  Com- 
modore is  releasing  the  long-awaited 
1351  two-button  mouse  for  cursor 
movement  on  the  screen.  The  $49 
mouse  has  two  modes  of  operation: 
joystick,  which  is  familiar  to  anyone 
who  has  used  a  joystick  on  the  64, 
and  proportional,  for  precise  and 
measured  mouse  movements  with 
major  applications  like  GEOS. 

Moving  Ahiead 

While  nothing  in  the  fast-moving 

microcomputer  industry  can  be  tak- 
en for  granted,  CES  gave  indica- 
tions that  1987  will  be  a  good  year 
for  computer  companies  and  com- 
puter users  alike. 

Commodore  has  apparently 
pulled  itself  out  of  severe  financial 
straits,  posting   three   consecutive 


profitable  quarters  after  more  than 
a  year  and  a  half  in  the  red.  The 
new  Amigas  and  the  continuing 
successes  of  the  64  and  128  will 
certainly  help  to  firm  up  the  bottom 
line  for  the  rest  of  1987  and  into 
1988. 

At  the  same  time,  Atari  has 
moved  boldly  forward  in  the  areas 
of  desktop  publishing  with  the  ST, 
new  Mega  machines  that  use  state 
of  the  art  one-megabit  dynamic 
RAM  chips,  and  even  the  aggres- 
sively priced  PC  compatibles.  After 
going  public  in  late  1986,  Atari 
watched  its  stock  rise  steadily. 

Apple  Computer,  with  the  new 
GS  extension  of  the  Apple  II  family, 
looks  as  though  it  will  move 
through  the  year  in  sound  financial 
shape  as  well.  Although  there's 
bound  to  be  some  fallout  among 
the  MS-DOS  manufacturers  as  the 
clone  wars  heat  up,  it's  clear  that 
this  market  will  be  a  popular  one 
throughout  the  year. 

What  all  of  this  spells  for  us, 
the  computer  users,  is  the  widest 
selection  of  popular,  powerful,  and 
usable  machines  ever  available  in 
the  short,  turbulent  history  of  this 
industry.  © 
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Since  1981 


Lyco  Computer 

Marketing  &  Consultants 
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Lyco  Computer  is  one  of  the  oldest  and  most  established  computer  suppliers  in 
America.  Because  we  are  dedicated  to  satisfying  every  customer,  we  have 
earned  our  reputation  as  the  best  in  the  business.  And.  our  six  years  of 
experience  in  computer  mail-order  is  your  assurance  of  knowledgeable 
service  and  quality  merchandise. 

We  fill  95%  of  all  orders  every  month.  Here's  how:  •  lowest  prices 

anywhere  •  multimillion  S  factory  fresh  inventory  •  courteous, 
knowledgeable  sales  staff  •  24-hour  shipping  on  in-stock  items 

Plus:  •  free  shipping  in  US  on  prepaid  cash  orders  •  no  deposit  on 
C.O.D.  orders  •  no  sales  tax  outside  PA  •  full  manufacturers' 
warranties  apply  •  air  freight,  UPS  Blue  Red  shipping  available 

Call  Lyco  Computer.  See  for  yourself  why  so  many  customers 
keep  coming  back  to  Lyco  for  the  best  prices,  the  most 
complete  inventory,  and  our  fast  and  courteous  service. 

To  order,  call  toll-free: 

1-800-233-8760 

In  Penna.:  1-717-494-1030 

Customer  Service: 

1-717-494-1670 

Or  write: 

Lyco  Computer,  Inc. 

P.O.  Box  5088 

Jersey  Shore,  PA  17740 


System 
Specials 
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COMMODORE' 128 


Risk-Free  Policy:  •  prices  show  A°o  cash 
discouni :  Bd6  4°b  for  credit  cards  •  APO.  FPO. 
international:  add  S5  plus  3°o,  for  priority  mail 

•  4-week  clearance  required  on  personal 
checks  *  compatability  not  guaranteed 

•  felurn  authonzaticn  feQuired  •  we 
check  for  credil  card  thett 


1-800-233-8760 


A  Maturing 
Software  Market 


Kathy  Yakal,  Assistant  Features  Editor 


Exciting  new  hardware  was  only  half 
the  story  at  January's  CES.  As  the 
technologies  that  comprise  the  con- 
sumer electronics  industry  move  closer 
together  and  toward  the  electronic 
home  of  the  1990s,  software  publishers 
are  constantly  gauging  the  entertain- 
ment, educational,  and  personal  pro- 
ductivity needs  of  buyers.  Here's  a 
look  at  how  they're  doing. 


A  futurist,  observed  one  computer 
industry  leader  recently,  is  anyone 
who  can  even  think  of  an  idea 
before  Jack  Tramiel  introduces  it  on 
the  floor  of  the  Consumer  Electron- 
ics Show. 

Tramiel,  the  founder  of  Com- 
modore Business  Machines  who 
amazed  the  industry  in  1984  by  pur- 
chasing the  Atari  Corporation  and 
bringing  it  back  to  financial  health, 
seems  to  have  the  ability  to  come  to 
market  faster,  and  with  more  inex- 
pensive new  products,  than  anyone 
else.  That's  a  tough  thing  to  do  in 
this  volatile,  exciting  industry  char- 
acterized by  its  rapid  growth. 

Unfortunately,  that  growth 
hasn't  helped  to  foster  any  single 
standard  of  hardware  and  software, 
as  it  has  (for  the  most  part)  with 
television,  radio,  and  stereo  system 
components.  And  no  consumer 
electronics  product  has  achieved 
widespread  household  penetration 
without  strict  standards  for 
compatibility. 

"Over  a  dozen  home  computer 
systems  have  been  marketed  over 
the  last  few  years  with  totally  in- 
compatible operating  systems," 
says  David  Seuss,  president  of 
Spinnaker  Software.  "Imagine  the 
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early  days  of  the  TV  industry:  If  you 
had  had  to  choose  from  among  15 
different  TV's,  each  of  which  could 
only  receive  one  channel,  and  one- 
third  of  all  the  stations  went  off  the 
air  every  year,  you  probably  would 
have  said,  TV's  not  for  me,  I  like  my 
radio.  I'll  wait  'til  next  year." 

Standardization  of  consumer 
products  like  televisions  and  stere- 
os has  not  halted  improvements  in 
the  quality  of  those  items.  Witness 
the  recent  explosion  of  improve- 
ments in  digital  TV's,  compact  disc 
players,  and  other  electronic  enter- 
tainment media.  Video  and  audio 
products  continue  to  get  better, 
smaller,  and  faster — without  con- 
fusing the  consumer. 

Consider,  though,  what  would 
have  happened  if  the  home  com- 
puter industry  had  imposed  similar 
standards  in  its  earlier  days.  Perhaps 
for  every  five  consumers  who  scoff 
at  the  idea  of  having  a  computer  in 
their  home,  there's  one  who  says, 
"Well,  this  computer  doesn't  seem  to 
do  what  I  need  but  this  other  one  does, 
so  I  guess  I'll  buy  it..."  And  this 
selectivity  is  what  some  industry 
leaders  think  attracts  many  consum- 
ers. Uncontrolled  growth  may  make 
the  industry  as  a  whole  look  unsta- 
ble, but  that  free  rein  has  encour- 
aged hardware  developers  and 
software  publishers  to  constantly  re- 
define "state-of-the-art." 

Further,  explorations  into  new 
ways  of  electronically  assisting 
home  entertainment,  education, 
and  management — extending  well 
beyond  the  home  computer  slice  of 
the  consumer  electronics  pie — are 
paving  the  way  for  the  powerhouse 
computers  a  few  years  down  the 
road. 


Product  Pipelines 

In  the  meantime,  there's  still  a 
healthy  and  growing  installed  base 
of  persona!  computers  whose  users 
continue  to  need  software.  The  U.S. 
computer  manufacturers  keep  up- 
grading their  existing  machines,  en- 
couraging third-party  peripheral 
and  software  development. 

Software  publishers  see  sever- 
al major  software  niches  based  on 
different  computers,  though  each 
places  the  order  of  emphasis  differ- 
ently, depending  on  their  particular 
specialty.  First  is  the  venerable 
Commodore  64,  whose  low  price 
and  excellent  graphics  and  sound 
make  it  a  superb  game  machine. 

Second  are  the  PC  clones, 
which  are  compatible  with  the  MS- 
DOS  format  driving  the  IBM  PC. 
"Over  the  last  year,  the  PC  format 
has  risen  to  the  number  2  position, 
whereas  two  years  ago  it  was  non- 
existent as  a  home  software  for- 
mat," says  Trip  Hawkins,  referring 
to  what  he  has  experienced  in  the 
marketing  of  Electronic  Arts  popu- 
lar product  line.  Hawkins,  presi- 
dent of  EA,  believes  MS-DOS 
software  could  outsell  every  other 
format  in  1987. 

Third  are  the  powerful  16-bit 
machines,  the  Commodore  Amiga 
and  Atari  ST,  which  deliver  state- 
of-the-art  home  computer  technol- 
ogy and  advanced  audio/video 
features. 

And  finally  the  Apple  ll-series 
and  Macintosh  computers  continue 
to  redefine  educational,  desktop 
publishing,  and  related  markets. 

Here  are  highlights  of  some  of 
the  new  products  announced  at 
CES,  as  well  as  information  about 
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COMMODORE 


128  Ctompuier S275 

1571  Disk  Dnve S229 

Compiler    ..,. $175 

1541  COiskOnve $185 

1902  Monitor  - - S285 

1 802C  Moniiof  - -. S189 


C-17CI0  128KRAM S109-95     /   Hacker  S1595 

1750  RAM S169.95    /  Hich  Hikers $22,SS 

Indus  GT  C-64  Drive $179      /  Leather  Goddesses S22  95 

GEOS JCALL   /  Moonmisl ,522  95 

C-1351  Mouse $39     /  Music  Studto S229S 


AATARl 


HARDWARE 

SF  314  Disk  Drive S219.96 

SF  354  Disk  Drive $175,95 

1050  Drive  (XE,  XL  series) $129.95 

SHD  204  20  MEG  Drive $655,95 

65XE SCALL 

520  ST  mono SCALL 

Indus  GT  A(an  OnvB 


AATARl 


AATARl 


HARDWARE 

Access: 

Leader  Board 523,95 

TouinafneralU „...  .    S14  9S 

Triple  Pack $14  95 

lOtli  Frarne _ S26  75 

Actiuision: 


SOFT 


Access: 

Leader  Board $24 

Toumamenl(»1 S13.9 

IQih  Frame „ $23,95 

Aclivision: 

Ballyhoo.- 523,95 

Borrowed  Time 532.95 

Championship  Baseball $2S.95 

Charnpionship  Basketball S28.95       /      L, 

Championship  QoK Shiew      /     Mu 

Game  Maker SNew     /     Porta 


Purchase  ot^rs 

accepted  Irom 
educallonat 
institutions. 
Also,  ask  about 
volume  discounts! 


Microprose: 

Conflict  in  Vietnam S25  95 

Dec'Sion  in  Desen     _ 525  95 

F-15  Strike  Eagle „ S22  95 

Kennedy  Approacri  519  95 

Silent  Servica  S22  95 

Top  Gunner  S!9  95 

Microleague: 
Micro  League  Basetjali,         ,  ,  S24  95 

General  Manager $24  95 

S:ai  Disk „ $15  95 

B6  Team  Disk    ,, 513  95 

Broderbund: 

PnntSliop     525,75 

Print  Shop  Companion , S22  75 

Graphic  Library  1,  II.  or  III ,515  75 

Karateka     $13,75 

Bank  St  Writer     ,.-- $29  75 

Optimized  Systems: 

Action S46  95 

Action  Tool  Kit ,, $18  95 

BasicXE _ 54695 


TassT 
Titanic ,- 


MicroPros 

F-15  Strike  F 

Gunship 
Kenne<3y  Appro; 
Silent  Service 
Solo  Flight  , 
Top  Gunner 


Hacker S28  95 

Hacker  2 S32-95 

Leather  Goddesses i,... $23  95 

Little  People..... „..^„, ^ $32  95 

Moonmisl ...,.„.,.. ...$23.95 

Music  Studio - $37.95 

Paint  Works S43.95 

Portal $34.95 

Shanghai $28  95 

Tass  Times $32.95     ,     ...      , 

/       Microleague: 

''^'^^°''-  /     Micro  League  Baseball 

Mercenary S26  75        /     General  Manager 

Mercenary.Second  City — S17  95       /     gtat  DisH 

Alternate  RealilyThe  City $34.95      /     -agTeamDsk 

Alternate  Real.Iy-The  Dungeon $26.75        /    Micro  League  Wrestling 

Microprose:  /   strategic  Simulations; 

Silent  Sen/icE $24  95      /    Basebai  Stadium  _ 

F.15  Strike  Eagle,.. $24.75      /    Geirstone  Healer 

Optimized  Sysleins:  /     Gettysburg     ,  ,., 

Personal  Pascal $48.95      /     Kampfgruppe 

Personal  Prolog $51.75      /     Phantasie  II $ 

Siralegic  Simulations:  /     Rmg  ol  Zellin     S2' 


Basic  XL „ $36  95 

Base  XL  Tool  Kit _ $18.95 

MacBS       $46.95 

Mac  65  Tool  Kit  _ _ _..    518.95 


Phamasie $24.95 

Phantasie  II $26,75 

Epjrx: 
ApshaiTnlogy $22.95 


Road  War  2000 „ S24 

Stiard  ot  Spring  S24  95 


Strategic  Simulations: 
Battle  ol  Arteliem  532  95 

Nam  $24  95 

Wargame  Construction       $18  95 

Wizards  Crown 524  95 


Super  Cycle 522.95 

World  Gaines 522.95 

Wteslting ....522.95 

Rrebird: 
Pai«n $28.95 


Starglider $28  95 

Golden  Path $31  95 


Wizards  Crown 
War  in  the  Scuth  Pacific 
Wargante  Construction  Set 

Sublogic: 

Fhghi  Simulaioi 
Jet  Simulator 
Night  Mission  Pinball 

Scenery  Disk  

Sublogic  Baseball    

Sublogic  Football 

Epyx: 

Deslroyer  

Faslioad 
Football       


$24  95 
$39  95 
$21  95 


524  75 
524  75 
$24.75 


Warship , $3995 

Sublogic: 
Flight  Simulator  II.  .     531  96 

Night  Mission  Pinball $2195     /      Aocourts $174.95 

Scenery  Japan _ $15  95     /      VIP  Prolesscnal 5124.95 

Scenery#1    #6  „_ S6995     /     VIP  Professional  LilO 574  95 

^Pl'"'  /     Unison  Worid:  /     Karate  Champ S20  75 

Eidolon „ $22.95     /       Art  Gallery  1  or2 518.95      /      MovieMonster $24  75 

Karate  Champ, ,  $1895/      Print  Master... S24  95      /    Muiliplan  524  75 

X«°"'^f<^ $2295    /    ^^^.  /    surnmer Carries II IZIZ..I"II.^  524.75 

SummerGames .,...„ S2395    /     ^oomracks $54.95      /     Super  Cycte $24  75 

Zoomracksll , $79.95     /    Vorpol  Ulilily  Kit $15.75 

Winter  Games  S24  75 

World  Games $24  75 


53195 
531.95 
$21.95 
.  $17  95 
..  $31  95 
525  95 


E 

De; 

Kara 

Movie 

Winter  C 

World  Gai 

Wrestling... 

Firebird: 

Colossus  IV 

Elite 

Unison  World: 

AnGal(ery2 

Pnnt  Master 


/      Firebird: 

/     Colossus  IV $21.95 

/    Elite $19.95 
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Brodert.ur«l:  SOFTWARE      /   TalKing  Teacher $28.95 

BankSl.WrilEr12BK $32.75       /     ^™'"'' ^'^'^ 

Carmen  San  Diego $22  75      /    HiTech  Expressions: 

Champion  Lode  Runner SZ*  75     /     Heart  Ware  $6.75 

Graphrc  Library  I  II  or  III ,. $15  75       /     Holiday  Paper $8.95 

KaralBka  S18  75     /     Card  Ware $6,75 

PrnlShop      ,  „„ $25-75      /     Parly  Ware „„ $9.75 

Prin:  Shop  Companion    „,.... .S?2  76      /     Unison  World: 

Pirns  Shop  Paper  _„ „ $12  75      /      AftGallecy  t  of  2 SJ5.95 

/     Print  Master $22.95 


tappkz 


Science  l.il $35  75 

Access: 

Leader  Board $24.95 

Mach  5 $23.95 

Mach  -128 $29.95 

IQlh  Frame $24.95 

Execulive TournamenI S1396      /    Access: 

Tournamenl#l     $13  95      /    Triple  Pack $14.95 

T"PlePack $M95     /^division: 

Aelivislon:  /    Enchanier  Trilogy $49.75 

Aliens $2475     /   Game  Maker $31.75 


/ 


Championstiip  Basketball $22  75 

Hacker $1B75 

acker  2 $20.75 

lyrinth $22  75 

c  Studio S22.75 

$26.95 

les $22.75 

$NEW 


SOFTWARE 
Access: 

Leader  Board S24.95 

Portal , $28  75 

TournamenI  #1 $14  95 

Activision: 
Borrowed  Time  . . ,,, $26  95 


$21.95 

$22.95 

h $19  95 

- $22,95 

$19  95 

$1995 


Leather  Goddesses ....$25.75 

Term  Psper S35.75 

Championship  Baskett>all--... S26.95 

Championsfiip  Golf SWew 

MicroPro  se: 

Crusade  in  Europe    S24  95 

Decision  in  Desert $24  95 

F.  15  Strike  Eagle $22.95 

Silent  Service $22.95 

Microleague: 


Chanipicnship  Basketball............ S26  95 

Champiorship  Golf,.... $32.95 

Hacker 526.95 

Hacker  2.. $29  95 

Lirlie  People $29  95 

Mindshadow.. $26.95 

Music  Studio _ $35  95 

Tass  Trmes      _ _ $26.95 

Strategic  Simulations: 
Computer  Baseball S24  95 


.- $24.95 

...       $24,95 
SI  5  95 
$13  95 
.SNew 


fi^icro  League  Baseball $25.95 

General  fitanager $25.95 

StalDisk S16  95 

'86  Team  Disk $14.95 

Broderbund: 

Airhean $22.75 

Ancient  Art  of  War. S25.75 

Print  Shop $30,75 

Print  Shop  Companion $25,75 

Carmen  San  Diego  (USA) $28.75 

On  Balance $82.75 


$16.95 

.$18.95 
.$36.95 
36.95 
195 
35 


Bank  St  Wnle/(12BK)      ,. 
Strategic  Simulations: 

Batllegruppe $38,95 

Colonial  Conquest $25.95 

Gettysburg $35,95 

Phanlasiell $25.95 

Shard  ol  Spring $25.95 

Wizafds  Crown $25.95 

Sublogic: 

Flight  Simulator  II $32.95 

Jet  Simulator $25,95 

Nighl  lulission  PinbatI ,$22.95 

cenery  ffl  •  #6 $69.95 


$43.75 


(x: 


oyer $23.95 

Champ $23  95 

onster „,,„.. S23.9S 

mes- -  ...$23.95 

»• ^3.95  y      Microprose; 

$23  95      /    co^fiic,  i„  Vietnam S25  75 

Crusade  m  Eu'ope $25.75 

Decision  in  Desan _ $25.76 

F  15  Strike  Eagle $21.75 

Silent  Se-vice $21  75 


Sublogic: 

Flight  Simulator  II „ $32  95 

Jet  Simu'aloi $CALL 

Epy<: 

Apshai  Trilogy. „ _ S22  95 

Rogue $22.9b 

Winter  Games $22  95 

Firebird: 
Pawn S2B95 

Unison  World:  /     Epy: 

Prim  Master $24.95      /    Apshai  Trilogy $24.75 

An  Gallery  1  or2 $18.95      /     Destroyer $24.75 

Karate  Champ $19.75 

VIP  Professional $115     /      Mo^i^  «°™'^' 52*75 

'     Rogue $19.75 

Winter  Games $24.75 

World  Games $24.75 

Strategic  Simulations: 

Battle  of  Anieliem $38.75 

Computer  Baseball $14.95 

Gettysburg $38.75 

Knights  in  De sen $25  75 

Shard  of  Spring $25  75 

Sublogic: 

Jet  Simulator $34  75 

Scenery  Japan S1S.9S 

See nen(  San  Francisco $15.95 

Scenery  #1  - 116 $69.95 

Brodertund: 


SOFTWARE 

Aelivislon: 

Pebble  Beach S32  95 

Portal i28  95 

Championship  Basketball $26  95 


Ballylioo $25.75 

Enchanler  Trilogy $49  75 

Leather  Goddesses S25  75 

Moonmisl S25  75 

I,1u5ic  Studio, -.$32.75 


$25  95 

,,,$22,95 


Ancient  Aft  ol  War $28  95 

Print  Shop $37,75 

Pnm  Stwp  Companion .$31  75 

GraphicLityarylOfll $21,75 

KaiBleka $21,75 

Toy  Shop S39.95 


$19,95    /       Microleague: 

,,$25,95     /       r^icro  League  Baseball $25.95 

General  lidanager     _.._..„ $25.35 

Stat  Disk $1695 

'36  Team  Disk $14  95 


Bank  Sl  Writer $49.95 

Unison  World: 

Art  Gallery  2 $18.95 

News  Master $55,75 


Pnnt  Master.,, 


..$36  75 


We  stock  over 
5000  lilies  of 
sotlware.  If  it's  not 
listed,  call  lor  price 
and  availability! 


L 


PRINTERS 


Seikosha  SP1000VC S154 

Seikosha  SPiaoOAi S205 

Panasonic  IDBOi  SISS 

Star  NX-10 S199 

SlarNP-lO S1B9 

Citiien  120-D  S179 


^CITIZEN 


Premiere  35 $469 


1080  APIIc S239 


thk 


EPSON 

LX86 S209 

FX85 S355 


MSP-10 S2B5 

MSP-15 $385 

MSP-20 S325 

MSP25 $485 


^/.fVV 


EX  800., 


.,S4« 


EX  1000 S579 

FX285 .$479 


SEIKOSHA 


LOaOO S449 

LQ1D0O S659 

FX  B6E SCALL 


FX  286E 


-IL. 


mi<  ro niej^inc 


NX-IOC $209 

NL-10 $229 

NX-IS $329 

NB-15 $949 

SD-10 $265 

SD-1S --..$438 

SR-10 S469 

SR-15 S535 

NB24-15 $729 

NO-15 IM45 

NR-)5 $529 


OKIDATA 

Okimale  20  ST $189 

120  NUO S225 

292 $449 

293 $599 

182 $21* 

192* S365 

193» -.$559 


SP  lOOOAPIIc $199 

SP  ISOOAilBM $215 

SP  laOOASi  R5232 $215 

..SCALL       /     SP  18DVC - 5159 

SP  180Ai $165 

SL-BOAi $375 

MP  1300A( $439 

MP  530DAI S579 

BP5420Ai $1099 

13DD  Color  Kit $119 

BP-5420  Ribban S12.50 

"""""  "°    Modems 


J75       / 


f-C^^c 


Avalex  >^'&.'^!;^ 

ISOOho •*"^'^|M^^ 

200 , $89 

Zoom 

PC  1200  ST  (internal) .,. $189 

PC  1200XL|iniernal] $259 

PC  2400  ST  (rnlernal) $329 

PC  2400  XL  linlerrall $349 

Hayes 

Smartmodem  300 ,..$133 

Smanmociem  1200 $377 

Smanmodem  1200B $347 

Smanmodeni  2400 „ „...„ S598 

M^cromodem  lie SCALL 

Smart  300  Apple  lie $CALL 

Anchor 

Volksmodem  12 Si  35 

Comntodore 

1670 S129 

Supra 

1064  Modem    $49-95 

SupraSOO S3995 

Supra  1200 $149  95 

Atari 
XM-301 - -..- $35 


Monitors 


T^nika 

MJ-22 - S24S 

MJ.305 $309 

MJ-503 $529 

Zenith 

ZVM122Q 589 


CM-145SS13- $525 

CM  1457  A  13- RGB $679 

Thomson 

365  12  RGB SCALL 

Monocl^rome  Irom $89 

Panasonic 

TR.  122  MVP  12"  Amber  TTL $139 

TR.122  M9P  12"  Green  TTL $139 

Commodore 
1902  Cofot S289 


EXP420P S209 

EXP600P S539 

EXP  BOOP $719 


ZVM1230 $89 

ZVM  1 240 $139 

ZVM  1350 -$33b 

Hitachi 

MM-1218  12"  Green $39 


1802  C $215 

NEC 

Multisync $CALL 

Princeton  Graphics 

M  AX- 1 2  A-mt>er $175 


MM.  1220  12"  TTL  Amber $129 

CM-1216D12"  RGB $385 


HV-12HGB $458 

SR-12RGB S575 


We  stock  interfacing  for  Alati,  Commodore,  Apple  and  IBM 
/  


existing  products  converted  to  new  machine  formats. 
For  more  information  about  new  products  at  CES,  see 
"News  &  Products,"  elsewhere  in  this  issue. 

Accolade's  Comics:  This  interactive  computer  comic 
book  was  introduced  by  year-old  software  publisher 
Accolade  at  CES,  Its  plot  revolves  around  a  character 
named  Steve  Keene,  who  must  try  to  thwart  evil  plots 
for  the  Chief  of  Spystuff,  Inc.  Unlike  text-only  adven- 
tures, Accolade's  Comics  incorporates  detailed  color 
graphics.  The  player  determines  the  direction  of  the 
story  by  selecting  answers  to  a  series  of  questions. 
Some  of  the  answers  lead  to  dead  ends,  and  others  take 
you  through  a  variety  of  themes  and  plot  twists.  Sever- 
al different  endings  are  possible  each  time  the  game  is 
played.  Arcade  action  becomes  part  of  the  game  when 
Keene  falls  into  traps,  inescapable  positions,  and  em- 
barrassing situations.  (Commodore  64,  $39.95,  Accolade) 

Aliens;  The  Computer  Game:  Based  on  last  sum- 
mer's hit  movie,  Aliens  features  six  game  segments 
closely  tied  to  the  movie's  storyline  and  action.  (Com- 
modore 64,  $39,95,  Activision) 

The  Bard's  Tale:  Now  available  for  the  Commodore 
Amiga.  ($49.95,  Electronic  Arts) 

The  Bard's  Tale  II:  The  Destiny  Knight:  This  fantasy 
sequel  to  The  Bard's  Tale  is  even  more  challenging  than 
its  predecessor.  It  features  an  expanded  dominion  for 
exploration  and  adventure,  and  incorporates  advanced 
combat  and  magic  systems.  (Commodore  64,  $39.95; 
Apple  II  version  coming,  Electronic  Arts) 

B.I.  Calc,  File,  Spell,  Write:  Four  productivity  pack- 
ages for  IBM  PC  and  compatible  users,  including, 
respectively,  a  spreadsheet,  a  database,  a  spell  checker, 
and  a  word  processor.  The  programs  are  designed  for 
ease  of  use  in  home  and  business  environments. 
($39.95  each.  Batteries  Included) 

Bop  'N  Wrestle,  Infiltrator,  and  Trailblazer:  Now 
available  for  Atari  eight-bit  computers.  ($29.95  each, 
Mindscape) 

Bureaucracy:  Fans  of  Douglas  Adams'  book  Hitch- 
hiker's Guide  to  the  Galaxy  were  delighted  when  Adams 
helped  design  a  computer  version  of  that  tale  for 
Infocom.  Now  Adams  has  lent  his  comic  writing  style 
to  Infocom  once  again  by  co-designing  Bureaucracy,  a 
text  adventure  that  wraps  up  the  player  in  the  endless 
swathes  of  red  tape  that  everyone  faces  when  dealing 
with  big  institutions.  (MS-DOS,  Apple  II  and  Macin- 
tosh, Commodore  Amiga,  Atari  ST,  $39.95, 
Infocom/ Activision) 

Championship  Golf:  The  Great  Courses  of  the 
World— Volujne  Orte:  Pebble  Beach:  Now  available  for 
the  Commodore  Amiga.  ($54.95,  Gamestar/ 
Activision) 

Create  a  Calendar:  This  program  offers  an  assort- 
ment of  calendar  types  and  a  wide  variety  of  decorative 
fonts,  borders,  and  graphics  suitable  for  special  occa- 
sions. In  addition,  graphics  from  the  Epyx  Graphics 
Scrapbook  series  or  The  Print  Shop  may  be  used.  Multi- 
ple lines  of  text  and  graphics  can  be  placed  on  any  day 
of  the  year,  and  regularly  scheduled  events  can  be 
repeated  automatically.  (Commodore  64,  Apple  II,  and 
MS-DOS  compatibles,  Epyx) 

Dan  Dare:  Pilot  of  the  Future:  In  this  interactive 
game,  each  screen  becomes  a  comic  book  panel  that 


C-128 


FULLY  WARRANTY 
FACTORY  SERVICED 


WITH  PURCHASE  OF  1571 
COMMODORE  DISK  DRIVE 


AMIGA 


FRiE 
HOME 
TRAIL 


*75  ADDITIONAL  FOR  MONITOR 


PRINTER 


SEIKOSHA 

NEAR  LETTER  .lOOCPS  DRAFT 

QUALITY         •20CPSNEAR    •COMMODORE  READY 


DrSKETTES 


DSDD     PER  PACK  OF  100 


PRO-TECH-TRONICS 

6860  Shingle  Creek  Parkway  #201 

IViinneapolis.  MN  55430 
QUICK^ 
DELIVERY 


iMH  asm  B 


1-800-345-5080 


you  control,  complete  with  cap- 
tions, full-color  3-D  cartoon  graph- 
ics, mazes,  puzzles,  fist  fights,  and  a 
realistic  soundtrack.  The  game  fol- 
lows the  adventures  of  Britain's 
popular  comic  book  hero  Dan  Dare 
and  his  pet,  Stripey,  as  they  travel 
to  a  distant  asteroid  and  neutralize 
the  threat  posed  by  the  alien  Treens. 
(Commodore  64,  under  $20,  Elec- 
tronic Arts) 

Data  Manager  PC:  This  is  a  flex- 
ible filing  and  record-keeping  sys- 
tem that  generates  customized  data 
reports  and  includes  a  built-in 
graphics  package,  print  preview 
mode,  and  label  maker.  (IBM  PC 
and  compatibles,  $59.95, 
Timeworks) 

Deluxe  Creativity  Series:  Five 
productivity  packages,  compatible 
with  each  other,  turn  the  Commo- 
dore Amiga  and  Apple  IIGS  into 
home  sound/video  production  stu- 
dios. The  programs  include  Deluxe 
Paint  11,  Deluxe  Music  Construction 
Set,  Instant  Music,  Deluxe  Print,  and 
DeluxeVideo.  The  series  is  also  sup- 
ported by  a  growing  library  of  data 
disks  and  a  quarterly  magazine,  De- 
luxeNews.  (Electronic  Arts) 

Deluxe  Music  Construction  Set: 
Now  available  for  the  Amiga 
($99.95),  Macintosh  ($99.95),  and 
Apple  IlGS.  (Electronic  Arts) 

Deluxe  Paint  II:  Now  available 
for  the  Apple  IlGS.  ($99.95,  Elec- 
tronic Arts) 

Deluxe  Print:  Now  available  for 
the  Apple  IlGS.  (Electronic  Arts) 

Earl  Weaver  Baseball:  This  is  an 
action /strategy  baseball  simulation 
coauthored  by  Baltimore  Orioles' 
former  manager  Earl  Weaver. 
(Commodore  Amiga,  $49.95,  Elec- 
tronic Arts) 


E^rl  Weaver  Baseball  is  an  action/ 
strategy  baseball  simulation  game  for 
the  Commodore  Amiga  that  was  de- 
signed with  the  help  of  former  Baltimore 
Orioles  manager  Earl  Weaver.  (Electron- 
ic Arts) 
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GBA  Championship  Basketball: 
Tivo-on-Two:  Now  available  for  the 
Amiga.  ($44.95,  Gamestar/ 
Activision) 

GFL  Championship  Football: 
Now  available  for  the  Amiga. 
($44.95,  Gamestar/ Activision) 

GEOS:  Just  one  year  ago,  at  the 
1986  Winter  CES,  Berkeley 
Softworks  premiered  an  operating 
system/graphics  user  interface  for 
the  Commodore  64  called  GEOS 
(Graphic  Environment  Operating 
System).  GEOS  was  designed  to 
speed  up  disk  access  five  to  seven 
times  and  make  the  64  easier  to  use 
by  providing  windows,  icons,  and 
pull-down  menus.  Since  then, 
GEOS  has  been  adopted  by  Com- 
modore as  the  official  operating 
system  for  the  64,  and  it's  now  bun- 
dled with  the  redesigned  Commo- 
dore 64C  computer. 


At  the  1986  Winter  Consumer  Electron- 
ics Show,  Berkeley  Softworks  introduced 
GEOS,  which  was  adopted  as  the  offi- 
cial graphics  user  interface  for  the  Com- 
modore 64.  At  the  1987  WCES,  Berkeley 
premiered  an  80-column  version  of 
GEOS  for  the  Commodore  128.  Berkeley 
also  announced  a  number  of  new  com- 
panion packages  for  the  program,  in- 
cluding geoCalc  and  geoFile,  a 
spreadsheet  and  database  manager. 

At  the  1987  Winter  CES, 
Berkeley  made  a  commanding  ap- 
pearance with  a  large  booth  across 
the  aisle  from  Commodore,  and  the 
company  announced  new  add-ons 
for  GEOS.  geoCalc  ($49.95)  is  a 
spreadsheet  program  with  space  for 
112  columns  and  256  rows  of  data. 
It  provides  basic  arithmetic  func- 
tions to  12  places  of  accuracy  and 
advanced  mathematical  functions 
to  nine  places  of  accuracy.  In  addi- 
tion, geoCalc  performs  sum  and  av- 
erage calculations  on  data,  displays 
two  different  portions  of  a  spread- 
sheet at  the  same  time,  does  man- 
ual or  automatic  calculations,  and 
lets  the  user  adjust  the  size  of  cells. 

geoFile   ($49.95)   is   a   CEOS- 


based  filing  system  for  managing 
all  types  of  data.  And  geoDex 
($39.95)  is  an  electronic  card  file 
that  lets  the  user  organize  names, 
addresses,  phone  numbers,  and 
other  miscellaneous  information  by 
group  or  alphabetically. 

An  80-column  version  of  GEOS 
for  the  Commodore  128  was  also 
announced.  It's  expected  to  be 
available  in  the  second  quarter  of 
1987.  (Commodore  64  and  128, 
$69,  Berkeley  Softworks) 

GraphicWorks  Version  1.1:  This 
product  is  an  upgrade  of  Mind- 
scape's  sophisticated  desktop  pub- 
lishing package,  GraphicWorks. 
Enhancements  include  onscreen 
rulers;  color  printing;  rotation,  per- 
spective, skew,  and  distortion  tools; 
and  PageMaker  1.2  and  2.0  support. 
(Apple  Macintosh,  $99.95;  regis- 
tered owners  of  the  earlier  version 
can  receive  the  upgrade  for  $19.95; 
Mindscape) 

Guild  of  Thieves:  Firebird  of- 
fered a  sneak  preview  at  CES  of  its 
follow-up  to  its  popular  text-and- 
graphics  adventure.  The  Pawn,  ti- 
tled Guild  of  Thieves.  (Firebird 
Licensees) 

Hollywood  Hijinx:  The  latest 
Infocom  text  adventure  is  a  tribute 
to  old  Hollywood  B-grade  movies. 
You  play  a  character  whose  Uncle 
Buddy  Burbank  has  left  you  a 
sprawling  Malibu  estate.  The  catch 
is  that  you  must  find  ten  treasures 
hidden  in  the  estate  in  one  evening, 
or  lose  the  whole  thing.  Hollywood 
Hijinx  is  loaded  with  the  kinds  of 
pure  logic  problems  found  in  Info- 
com's  classic  Zork  trilogy.  (Commo- 
dore 64,  Atari  XE/XL,  $34.95;  MS- 
DOS,  Apple  II  and  Macintosh, 
Commodore  Amiga,  Atari  ST, 
$39.95;  Infocom/ Activision) 

Instant  Music:  Now  available 
for  the  Apple  IIgs.  (Electronic  Arts) 

Laser  Author:  One  of  the  first 
offerings  in  Firebird  Licensees'  new 
business  division.  Laser  Author  is  a 
document  processor/desktop  pub- 
lishing package  for  the  Macintosh. 
(Apple  Macintosh,  under  $200, 
Firebird  Licensees) 

Masterpiece:  This  professional 
sr.quencing  program  offers  dual 
MIDI  port  capabilities,  32  tracks, 
and  24  sequences.  (Apple  Macin- 
tosh and  Atari  ST,  $475,  Sonus) 

Music  Construction  Set:  Now 
available  for  the  Apple  IlGS. 
($49,95,  Electronic  Arts) 
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Activision  voiced  early  support  for  the 
new  Apple  IlGS  with  both  entertainmenl 
and  productivity  software.  Shoivn  here 
is  The  Music  Studio,  an  easy-to-use 
music  composition  tool. 

The  Music  Studio:  Now  avail- 
able for  the  Apple  IlGS.  ($79.95, 
Activision) 

PHM  Pegasus:  Designed  in 
consultation  with  a  former  Patrol 
Hydrofoil  Missilecraft  (PHM)  com- 
mander and  technical  adviser  to  the 
U.S.  Navy,  PHM  Pegasus  puts  you 
in  control  of  a  hydrofoil  as  you 
battle  enemy  vessels  in  any  of  eight 
different  combat  assignments.  You 
complete  a  basic  hydrofoil  training 
session  and  become  part  of  the  Ter- 
rorist Action  Group  (TAG)  Force, 
which  can  be  called  to  action  at  any 
time.  (Commodore  64,  $39,95;  Ap- 
ple II  version  to  be  announced. 
Electronic  Arts) 

Partner  PC:  This  is  a  memory- 
resident  program  that  operates  con- 
currently with  other  applications 
and  includes  ten  time-saving  orga- 
nizational tools.  (IBM  PC  and  com- 
patibles, $59.95,  Timeworks) 

Partner  64:  This  is  a  40-column 
cartridge-based  desktop  accessory 
for  the  Commodore  64.  Memory- 
resident  once  it's  plugged  into  the 
back  of  the  computer.  Partner  64 
gives  you  eight  time-saving  organi- 
zational programs:  appointment 
calendar  and  date  book;  memo  pad; 
phone  list  and  autodialer;  name 
and  address  list;  calculator;  type- 
writer; label  maker  and  envelope 
addresser;  and  screen  print  utility. 
(Commodore  64,  $59.95,  Time- 
works) 

PC  Voyager:  Another  of  Fire- 
bird's new  business  offerings,  PC 
Voyager  is  an  interactive  database 
that  helps  you  plan  trips  by  provid- 
ing information  on  such  things  as 
hotels,  restaurants,  ground  trans- 
portation, and  travel  routes  for  spe- 
cific international  locales.  (IBM  PC 
and  compatibles,  under  $100,  Fire- 


bird Licensees) 

Portal:  Assisted  by  a  biological 
computer  named  Homer  in  the  year 
2106,  you  must  explore  the  culture 
of  the  twenty-second  century  to  try 
and  find  out  why  all  the  earth's 
inhabitants  have  disappeared. 
Using  Homer's  massive  database, 
you  learn  about  such  things  as  the 
Antarctic  Expeditionary  Force 
(AEF),  the  Elite  Neutralization 
Corps  (ENC),  and  the  technology  of 
the  era — neurophage  weapons, 
agrobiotics,  biomonitors,  LN  cells, 
IR  nightvision  thermography,  and 
induction  sensorium.  (IBM  PC  and 
compatibles,  Apple  II,  $44.95;  Mac- 
intosh, Commodore  Amiga,  Atari 
ST,  $49.95;  Commodore  64, 
$39.95,  Activision) 

PrintMaster  Plus:  This  is  an  up- 
grade to  Unison  World's  desktop 
publishing  package,  PrintMaster. 
It's  designed  to  allow  greater  flexi- 
bility when  creating  and  printing 
signs,  banners,  stationery  calen- 
dars, and  greeting  cards.  (MS-DOS 
compatibles,  $59.95;  Commodore 
Amiga  and  64,  Atari  ST,  $39.95; 
Apple  II  version  available  soon; 
Unison  World) 

Red  Storm  Rising:  With  the  au- 
thor's assistance,  Tom  Clancy's 
bestselling  novel  Red  Storyn  Rising  is 
being  developed  as  a  simulation 
game.  The  program  is  expected  to 
appear  in  late  1987.  (Microprose) 


One  of  the  first  entertainment  products 
announced  for  the  Commodore  Amiga  at 
its  launch  nearly  tivo  years  ago,  Return 
to  Atlantis  is  an  interactive  adventure 
story  with  rich  graphics  and  animation. 
(Electronic  Arts) 

Return  to  Atlantis:  One  of  the 
first  entertainment  offerings  an- 
nounced at  the  launch  of  the 
Amiga,  this  is  a  novel-sized  adven- 
ture incorporating  stunning  graph- 
ics and  animation.  (Amiga,  $49.95, 
Electronic  Arts) 

Sinbad:  This  is  a  new  program 
in  the  Cinemaware  line  distributed 


Cinemaware  is  a  line  of  interactive  en- 
tertainment software  from  Mindscape 
for  the  Commodore  Amiga,  Atari  ST, 
and  Apple  Macintosh  that  incorporates 
movie  characters  and  themes  in  a 
graphics-intensive  environment.  Sinbad, 
the  latest  title  in  the  series,  debuted  at 
CES. 

by  Mindscape.  Cinemaware  titles, 
available  only  for  the  Macintosh, 
ST,  and  Amiga,  use  highly  sophisti- 
cated color  graphics  and  animation 
in  an  interactive  game  environ- 
ment. (Cinemaware/Mindscape) 

Springboard  Publisher:  Spring- 
board, publisher  of  the  popular 
productivity  programs  The  News- 
room and  Certificate  Maker,  has  in- 
troduced Springboard  Publisher,  a 
sophisticated  desktop  publishing 
program  for  Apple  Il-series  com- 
puters that  creates  the  working  en- 
vironment of  the  Apple  Macintosh 
on  the  eight-bit  Apple  lis. 

Publisher  gives  the  user  total 
control  over  page  design  and  lay- 
out. Pages  can  be  preformatted,  or 
the  user  can  work  free-form. 
Graphics  and  text  can  be  placed 
anywhere  on  the  page  and  rear- 
ranged at  any  time.  The  program's 
impressive  library  of  working  tools 
are  accessed  via  pull-down  menus, 
so  the  user  is  never  required  to 
leave  the  page  currently  being 
designed. 

Springboard  Publisher  is  com- 
patible with  any  Apple  lie,  lie,  or 
IlGS  computer  with  128K  memory, 
and  supports  both  dot-matrix  and 
laser  printers.  (Apple  Il-series  with 
128K  memory.  Springboard) 

Star  Trek:  The  Promethean 
Prophecy:  Sequel  to  the  popular  Star 
Trek:  The  Kobayishi  Alternative,  this 
game  features  a  sophisticated 
parser  that  understands  nearly 
1000  words  and  can  handle  multi- 
ple sentences  and  objects.  The 
game's  premise  involves  an  alien 
attack  that  depletes  the  U.S.S.  En- 
terprise's food  supply;  you  must 
beam  down  to  a  nearby  planet  to 

AprtI  1987     COMPUTEI      39 


replenish  the  supply.  (IBM  PC  and 
compatibles,  Apple  II,  $39.95; 
Commodore  64,  $32.95;  Simon  & 
Schuster) 

Starglider:  Excellent  3-D  graph- 
ics and  sound  effects  contribute  to 
the  realism  of  this  fast-action  ar- 
cade game.  Already  a  hit  on  the 
Atari  ST,  the  game  requires  cun- 
ning, skill,  and  quick  reflexes  as  you 
do  battle  with  the  starship  Star- 
glider.  (Commodore  64,  $39.95; 
Atari  ST,  Commodore  Amiga,  Ap- 
ple II,  and  MS-DOS,  $44.95;  Fire- 
bird Licensees) 

Stickybear  Numbers,  Stickybear 
Math  I,  Stickybear  Reading,  Sticky- 
bear  Typing,  and  Stickybear  Spell- 
grabber:  Now  available  for  MS- 
DOS  and  compatible  computers. 
($39.95,  Weekly  Reader  Family 
Software) 

Street  Sports  Basketball:  Epyx 
made  a  name  for  itself  in  the  area  of 
sports  simulations  with  the  Summer 
Games/Winter  Games  series.  Now 
the  company  has  introduced  a  new 
sports  line,  the  Street  Sports  series. 
The  first  title.  Street  Sports  Basket- 
ball, was  introduced  at  CES.  (Com- 
modore 64,  Epyx) 
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Sub  Battle  Simulator  signals  a  return 
to  the  kinds  of  simulations  that  Epyx 
published  in  its  early  days  in  the  soft- 
ware business.  Versions  ivill  be  avail- 
able for  the  Apple  II  and  Macintosh, 
Atari  ST,  Commodore  64,  and  MS-DOS 
compatibles.  The  Mac  version  is  shown 
here. 

Sub  Battle  Simulator:  Another 
new  series  announced  by  Epyx  at 
CES  is  the  Masters  Collection,  a 
return  to  the  kinds  of  simulations 
that  gave  Epyx  a  start  in  the  home 
computer  software  business.  Sub 
Battle  Simulator,  first  in  that  series, 
is  a  detailed  submarine  simulation 
set  in  World  War  II.  Players  can 
choose  from  over  60  different  mis- 
sions, all  based  on  achial  historical 
data.  (Apple  II  and  Macintosh, 
!  Atari  ST,  Commodore  64;  Epyx) 
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SuperScore:  This  program  loads 
SuperScore,  Super  Sec]uencer,  Glass 
Tracks,  and  MasterPiece  data  files 
and  prints  out  musical  scores;  it  also 
serves  as  an  editor  and  sequencer. 
(Macintosh  and  ST,  $425,  Sonus) 

Super  Sequencer:  A  professional 
MIDI  recording  system  and  librari- 
an. (Macintosh,  ST,  $195,  Sonus) 

Swiftcalc  PC:  Now  available  for 
IBM  PC  and  compatibles,  ($59.95, 
Time  works) 

Tracker:  This  game  challenges 
you  with  fast  maneuvers,  high- 
speed 3-D  battle  sequences,  and  de- 
manding play  action,  (Commodore 
64,  $39.95;  Atari  ST  and  Apple 
Macintosh,  $44.95,  Firebird 
Licensees) 

TRIO:  Already  available  for  the 
Commodore  64  and  Apple  II,  TRIO 
is  an  integrated  package  for  the 
Commodore  128  that  includes  a 
word  processor,  spreadsheet,  and 
database  manager.  TRIO  WORD 
lets  you  edit  text  easily,  link  files 
together,  and  work  on  two  docu- 
ments simultaneously,  TRIO  CALC 
offers  a  large,  flexible  worksheet  for 
financial  planning.  And  TRIO  FILE 
offers  all  the  recordkeeping,  search- 
ing, and  printing  capabilities  of  a 
good  database  manager.  (Commo- 
dore 128,  $69.95,  Softsync) 

Word  Writer  PC:  A  word  pro- 
cessing program  for  MS-DOS  ma- 
chines. Word  Writer  PC  includes  a 
90,000-word  spelling  checker,  inte- 
grated thesaurus  with  over  60,000 
synonyms  and  alternatives,  and  an 
integrated  outliner  and  dictionary. 
(IBM  PC  and  compatibles,  $59.95, 
Timeworks) 

Word  Writer  3:  This  word  pro- 
cessor features  an  85,000-word 
spelling  checker,  integrated  thesau- 
rus and  outline  processor,  80-column 
print  preview  mode,  and  automatic 
program  setup.  It's  also  G£OS-com- 
patible.  (Commodore  64,  $49.95, 
Timeworks) 

Writer's  Choice  Elite:  Part  of  Ac- 
tivision's  Personal  Choice  line  of 
productivity  software,  this  is  an 
easy-to-use  word  processing  pro- 
gram that  offers  colored  text  and 
highlighting  in  five  colors.  (Apple 
IIGS,  $99.95,  Activision) 

Inexpensive  Collections 
of  Oldies 

In  addition  to  new  products  at  CES, 
several  companies  announced  new 
lower  prices  for  collections  of  old 


titles.  The  Accolade  Avantage  line 

includes  Spy  vs.  Spy  I  &  U,  Deceptor, 
and  Desert  Fox  (Commodore  64, 
Apple  n.  Atari  8-bit,  $14,95),  Elec- 
tronic Arts  added  to  its  line  of  Soft- 
ware Classics  Archon  II:  Adept, 
Sky  fox,  Movie  Maker,  Financial 
Cookbook,  and  Mind  Mirror  (most 
titles  available  for  all  eight-bit  com- 
puters for  under  $15  each).  Activi- 
sion announced  the  first  in  its  series 
of  Solid  Gold  Software  titles:  Pitfall! 
and  Demon  Attack  will  be  packaged 
together  (Commodore  64/Atari 
XE/XL  "flippy,"  under  $15). 
Mindscape  rolled  out  its  Thunder 
Mountain  Division,  previously 
published  and  new  titles  (Apple  II 
and  Macintosh,  MS-DOS,  Commo- 
dore 64,  and  Atari  800,  $9.95).  And 
Infocom  has  bundled  its  three  pop- 
ular Zork  programs  in  the  Zork  Tril- 
ogy (Commodore  64,  Atari  XL/XE, 
$59.95;  Apple  II  and  Macintosh, 
Commodore  Amiga,  MS-DOS 
compatibles,  $69.95). 


For  more  information  about  any 
of  these  products,  contact  a  local 
retailer  or: 

Accolade,  20833  Stevens  Creek  Boulevard, 
Cupertino,  CA  95014 

Activision,  2350  Bayshore  Parkway,  Moun- 
tain View,  CA  94043 

Batteries  Included,  30  Mural  Street,  Rich- 
mond Hill,  Ontario,  Canada  L4B  IBS 

Berkeley  Softworks,  2150  Shattuck  Ave- 
nue, Berkeley,  CA  94704 

Electronic  Arts,  1820  Gateway  Drive,  San 
Mateo,  CA  94404 

Epyx,  60  fl  Galveston  Drive,  Redwood  City, 
CA  94063 

Firebird  Licensees,  P.O.  Box  49,  Ramsey, 

NJ  07446 

Infocom,  125  Cambridge  Park  Drive,  Cam- 
bridge, MA  02140 

MicroFrose,  120  Lakefront  Drive,  Hunt  Val- 
ley, MD  21030 

Mindscape,  3444  Dundee  Road,  North- 
brook,  IL  60062 

Simon  &  Schuster,  One  Gulf  -|-  Western 
Plaza,  New  York,  NY  10023 

Softsync,  162  Madison  Avenue,  New  York, 
NY  10016 

Sonus,  21430  Stralhem  Street,  Ste.  H.,  Can- 
oga  Park,  CA  91304 

Springboard  Software,  7808  Creekridge 
Cir.,  Minneapolis,  MN  55435 

Timeworks,  444  Lake  Cook  Road,  Deer- 
field,  IL  60015 

Weekly  Reader  Family  Software,  4343  Eq- 
uity Drive,  P.O.  Box  16754,  Columbus, 
OH  43216  ^ 


SpeedScript  80 

The  SO-Column  Machine  Language 
Word  Processor  For  Apple  II 


Charles  Brannon,  Kevin  hylortin,  and  Bill  Rodrick 


COMPUTE!  is  proud  to  present 
SpeedScript  80,  an  80-column  word 
processor  for  Apple  He,  Ik,  and  lies 
cornputers.  Based  on  SpeedScript 
3.0,  which  was  first  published  in  the 
June  1985  issue  of  COMPUTE!  maga- 
zine, SpeedScript  80  !S  an  impressive 
word  processing  application  that's 
easy  to  learn,  and  just  as  easy  to  use. 
If  you  already  have  and  use  Speed- 
Script,  you  can  save  yourself  retyping 
time  by  following  the  easy  instruc- 
tions ivhich  show  you  hoio  to  modify 
SpeedScript  for  80  columns.  Speed- 
Script  80  runs  on  any  Apple  lie  and 
IIGS,  and  on  lie  computers  with  an 
80-column  card.  DOS  3.3  and  Pro- 
DOS  versions  are  included. 


SpeedScript  80,  though  compact  in 
size  (5.5K),  has  most  of  the  func- 
tions you  expect  in  a  full-featured 
word  processor,  SpeedScript  is  also 
very  easy  to  learn  and  use.  You  type 
in  everything  first;  preview  and 
make  corrections  on  the  screen;  in- 
sert and  delete  words,  sentences, 
and  paragraphs;  then  print  out  an 
error-free  draft,  letting  SpeedScript 
80  take  care  of  things  like  margins, 
centering,  headers,  and  footers. 

Special  Typing  Instructions 

SpeedScript  80  is  a  long  program, 
but  our  "Apple  MLX"  entry  system 
helps  you  type  it  right  the  first  time. 
MLX  can  detect  most  typing  errors 
as  they  happen.  (See  the  Apple 
MLX  instructions  and  program 
elsewhere  in  this  issue.)  MLX  also 
lets  you  type  SpeedScript  80  in  more 
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SpeedScript  80  is  an  30-cohimn  version 
of  SpeedScript,  COMPUTEI's  popular 
word  processor  for  Apple  I!  computers. 
This  version  runs  on  any  Apple  Uc  and 
Ugs  and  on  Apple  He  computers  with 
80-column  cards.  The  program  works 
with  either  DOS  3.3  or  ProDOS. 


than  one  sitting.  Although  the  pro- 
gram listing  is  lengthy,  we  think 
you'll  agree  the  effort  is  worth- 
while. If  you  prefer,  you  can  order 
this  issue's  companion  disk — 
which  includes  SpeedScript  80 — di- 
rectly from  COMPUTE!  Publica- 
tions by  using  the  coupon  in  the 
magazine  or  by  calling  COMPUTE! 
Publications  toll-free  at  1-800-346- 
6767  (in  NY  1-212-887-8525). 

To  begin  entering  the  data  for 
SpeedScript  80,  boot  up  your  Apple 
with  a  DOS  3.3  or  ProDOS  startup 
disk  in  the  drive.  Programs  entered 
with  MLX  must  be  saved  to  disk 
with  the  same  operating  system  for- 
mat as  the  disk  from  which  MLX 
was  loaded.  If  you  will  be  using  the 
ProDOS  operating  system,  you 
must  enter  the  DOS  3.3  version  of 
SpeedScript  80,  listed  at  the  end  of 
this  article,  then  create  a  ProDOS 


version  by  following  the  instruc- 
tions found  in  the  section  'TroDOS 
Modifications." 

ProDOS  users  should  read  the 
section  "ProDOS  Modifications," 
which  explains  the  conversion  proce- 
dure, before  attempting  to  run  the 
SpeedScript  80  program. 

Because  the  machine  language 
data  for  SpeedScript  80  resides  in  the 
same  area  of  memory  where  BASIC 
programs  are  normally  loaded,  it's 
necessary  to  reconfigure  memory 
before  loading  MLX  to  enter  Speed- 
Script  80.  Otherwise,  the  Speed- 
Script  80  data  you  enter  with  MLX 
will  overwrite  the  MLX  program 
itself  as  you  type.  To  reconfigure 
memory,  type  the  following  line  in 
direct  mode  (no  line  number)  and 
hit  Return: 
POKE  104,32:  POKE  8192,0:  NEW 

You  must  always  enter  this  line 
before  loading  MLX  to  enter  Speed- 
Script  80  data.  It  is,  however,  not 
necessary  to  enter  this  line  before 
loading  the  completed  SpeedScript 
80  program. 

Now  run  MLX.  Respond  to  its 
prompts  as  indicated: 

STARTING  ADDRESS?   0800 
ENDING  ADDRESS?        1E45 

An  options  menu  appears  next. 
Press  E  to  Enter  the  program.  Now 
type  the  address  at  which  you'd  like 
to  start  typing.  If  you're  just  begin- 
ning to  type  the  listing,  enter  0800. 
The  screen  then  shows  the  first 
prompt,  the  number  0800  followed 
by  a  colon  (;).  Type  in  each  two- 
digit  number  shown  in  the  Speed- 
Script  80  listing  (Program  1).  Some 
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Apple  SpeedScript  3.0  Keyboard  Map 


Use  ICTRLl  or   |control|  with  most  commands 
Apple  lie  Keyboard  Shown.  Apple  lle,tl+  keyboard  Jimilar 
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of  the  digits  are  letters,  because  the 
numbers  are  in  hexadecimal.  You 
don't  need  to  type  the  spaces  be- 
tween the  two-digit  numbers 
shown  in  the  listing,  but  you  can  for 
the  sake  of  readability.  MLX 
doesn't  let  you  type  illegal 
characters. 

The  last  number  you  enter  in 
each  line  is  a  checksum.  If  you  type 
the  line  correctly,  the  checksum  cal- 
culated by  MLX  should  match  the 
checksum  number  you  typed  in.  If 
it  doesn't  match,  MLX  makes  you 
retype  the  line,  MLX  is  not  fool- 
proof, though.  It's  quite  rare,  but  it's 
possible  that  an  error  in  one  num- 
ber could  be  offset  by  an  error  in 
another.  MLX  will  help  catch  your 
errors,  but  you  still  must  be  careful. 

Typing  In  Multiple  Sittings 

If  you  want  to  stop  typing  the  list- 
ing at  some  point  and  pick  up  later, 
press  Return  at  the  address  prompt 
without  typing  anything.  Write 
down  the  address  where  you 
stopped.  The  options  menu  reap- 
pears, and  you  can  save  your  typing 
at  this  point.  To  continue  entering 


data  the  next  time,  boot  your  sys- 
tem, enter  the  direct-mode  line  giv- 
en above  to  configure  memory,  and 
load  MLX,  Answer  the  STARTING 
ADDRESS?  and  ENDING  AD- 
DRESS? questions  with  the  same 
values  you  used  the  first  time,  0800 
and  1E45.  Then  select  Load  from 
the  options  menu,  and  press  E  to 
enter  data.  Give  MLX  the  address 
number  where  you  previously 
stopped.  Then  continue  typing  as 
before. 

When  you  finish  all  typing, 
MLX  returns  you  to  the  options 
menu,  where  you  can  save  the  fin- 
ished program.  Since  you'll  have 
quite  a  bit  of  effort  invested  in  en- 
tering all  the  data,  we  recommend 
that  you  use  the  MLX  Save  option 
to  save  copies  of  SpeedScript  80  on 
several  different  disks  before  you 
leave  MLX. 

MLX  has  now  created  a  binary 
file  on  disk.  This  version  of  Speed- 
Script  80  will  run  only  with  DOS 
3.3;  ProDOS  users  should  read  the 
section  "ProDOS  Modifications" 
for  information  on  converting  this 
version  of  SpeedScript  80  into  a  Pro- 
DOS  version. 


Running  SpeedScript  80 

To  run  SpeedScript  80  with  DOS  3,3, 
reboot  the  machine  to  clear  out 
memory.  Then,  from  BASIC,  type 
BRUN  filename,  where  filename  is 
the  name  you  specified  when  sav- 
ing SpeedScript  80  on  disk  with 
MLX.  SpeedScript  80  automatically 
loads  and  runs.  If  you  prefer,  you 
can  write  a  short  program,  some- 
thing like 

10  PRINT  CHR$(4);"BRUN  filename" 

Save  it  as  the  HELLO  file  on  the 
disk  (use  INIT  HELLO  to  format 
and  set  up  a  blank  disk).  This 
makes  SpeedScript  80  load  and  run 
automatically  when  you  boot  up. 
To  run  the  ProDOS  version, 
simply  reboot  the  machine  with  the 
SpeedScript  80  startup  disk  in  the 
drive,  and  SpeedScript  80  will  load 
and  run  automatically,  Alternative- 
ly, if  you  already  have  ProDOS 
booted,  insert  the  SpeedScript  80 
disk  and  at  a  BASIC  ]  prompt,  enter: 
-SS.SYSTEM 

An  Empty  Pag© 

When  you  run  SpeedScript  80,  you'll 
see  a  blank  80-column  screen  with 


42     COMPUTEI     April  1987 


"Before  you  buy 

insurance, 

examine  the  evidence." 


RAYMOND  BURR 
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An  agent  who  works  for  one  company 

can  only  offer  you  the  policies  that 

his  company  sells.  An  Independent 

Insurance  Agent  represents  several 

companies.  So  your  Independent 

Agent  can  help  you  select  the  right 

coverage  at  the  right  price 

because  there  are  more  policies 

from  which  to  choose. 

The  evidence  is  clear. 


THE  MORE-THAN-ON£-COMPANY 
INSURANCB  AGENT, 

You'll  find  the  Independent  Insurance  Agent 
nearest  you  in  the  Yellow  Pages. 


a  blinking  underline  cursor.  The 
first  line  on  the  screen  is  in  reverse 
video,  white  with  black  letters. 
SpeedScript  80  presents  all  messages 
on  this  command  line.  The  remain- 
ing 20  lines  of  the  screen  are  used  to 
enter,  edit,  and  display  your 
document. 

The  clarity  of  the  80-column 
display  will  vary  depending  on 
your  monitor  or  television  set.  If  the 
characters  appear  fuzzy  and  a  bit 
unreadable,  try  adjusting  the  con- 
trast of  the  monitor  or  set  while 
turning  up  its  brightness.  This 
leaves  you  with  a  gray  background 
instead  of  black,  but  the  characters 
should  show  up  more  easily. 

The  cursor  shows  where  the 
next  character  you  type  will  appear 
on  the  screen.  SpeedScript  SO  lets 
you  move  the  cursor  anywhere 
within  your  document,  making  it 
simple  to  find  and  correct  errors. 

Entering  Text 

To  begin  using  SpeedScript  80,  start 
typing,  just  as  you  would  on  a  type- 
writer. Hold  down  the  Shift  key  to 
type  an  uppercase  letter,  and  be 
sure  the  Caps  Lock  key  is  disen- 
gaged if  you  want  to  type 
lowercase. 

When  the  cursor  reaches  the 
right  edge  of  the  screen,  it  automat- 
ically jumps  to  the  beginning  of  the 
next  line,  just  as  in  BASIC.  But 
unlike  BASIC,  SpeedScript  80  never 
splits  words  at  the  right  edge  of  the 
screen.  If  a  word  you're  typing 
won't  fit  at  the  end  of  one  line,  it's 
instantly  moved  to  the  next  line. 
This  feature,  called  word-wrap, 
helps  make  your  text  more 
readable. 

Scrolling  And 

Screen 

Formatting 

When  you  finish  typing  on  the  last 
screen  line,  SpeedScript  80  automat- 
ically scrolls  the  text  upward  to 
make  room  for  a  new  line  at  the 
bottom.  Imagine  the  screen  as  a  20- 
line  window  on  a  long  continuous 
document.  The  DOS  3.3  version 
provides  room  in  memory  for 
27,904  characters,  or  about  10-15 
pages  of  text.  Unfortunately,  the 
DOS  3.3  version  cannot  make  use 
of  memory  in  excess  of  48K.  How- 
ever, the  ProDOS  version  of  Speed- 
Script  80  does  give  you  access  to  an 


additional  lOK,  or  about  10,240 
more  characters. 

To  check  at  any  time  how 
much  space  is  available,  press  Con- 
trol-A  (hold  down  the  Control  key 
while  pressing  the  A  key).  The 
number  appearing  in  the  command 
line  indicates  how  much  available 
room  remains  for  characters  of  text. 

If  you're  used  to  a  typewriter 
and  this  is  your  first  experience 
with  word  processing,  you'll  have 
to  unlearn  some  habits.  For  one 
thing,  you  don't  have  to  press  Re- 
turn at  the  end  of  each  line  as  you 
do  on  a  typewriter.  SpeedScript  SO's 
word-wrap  takes  care  of  this  auto- 
matically. Press  Return  only  when 
you  want  to  force  a  carriage  return 
to  end  a  paragraph  or  limit  the 
length  of  a  line.  A  return  mark  ap- 
pears on  the  screen  as  a  reverse 
less-than  sign  (<). 

Using  Ttie  Keyboard 

Most  features  are  accessed  with 
Control-key  commands — you  hold 
down  Control  while  pressing  an- 
other key.  In  this  article,  Control- 
key  commands  are  represented  as 
Control-ar  (where  x  is  the  key  you 
press  in  combination  with  Control). 
An  example  is  the  Control-A,  men- 
tioned above,  to  check  on  available 
memory.  Control-E  means  hold 
down  Control  and  press  E. 

Some  commands  have  special 
options.  You  may  be  required  to 
press  the  Open  Apple  key  (the  key 
to  the  left  of  the  space  bar  with  a 
hollow  Apple  symbol  on  the  face) 
while  pressing  another  key  or  Con- 
trol-key combination.  The  Open 
Apple  key  is  abbreviated  as  OpAp 
in  this  article.  OpAp-Control-;t: 
means  to  press  Open  Apple  in  con- 
junction with  a  Control-key  combi- 
nation. Other  keys  are  referenced 
by  name  or  function.  See  the  "Key- 
board Map"  figure  for  a  complete 
quick-reference  chart  of  all  key- 
board commands.  Because  Speed- 
Script  80  uses  almost  every  key,  not 
all  combinations  are  especially 
mnemonic.  Most  keys,  though, 
stand  for  the  name  of  the  function 
they  perform. 

Some  keys  let  you  move  the 
cursor  to  different  places  in  the  doc- 
ument to  make  corrections  or  scroll 
text  into  view.  You  can  move  the 
cursor  by  character,  word,  sen- 
tence, or  paragraph.  Here's  how  to 


control  the  cursor: 

•  The  ^  and  -  keys  (cursor-left  and 
cursor-right)  move  the  cursor  a  sin- 
gle space  in  either  direction.  By 
holding  down  the  Open  Apple  key 
while  pressing  the  appropriate  cur- 
sor key,  you  can  move  the  cursor  to 
the  beginning  of  the  next  (-*)  or 
previous  (<-)  word. 

•  The  T  and  4  keys  (cursor-up  and 
cursor-down)  move  the  cursor  to 
the  beginning  of  either  the  previous 
or  next  sentence.  A  sentence  is  de- 
fined as  any  sequence  of  characters 
ending  in  a  period,  question  mark, 
exclamation  point,  or  return  mark. 
Hold  down  the  Open  Apple  key  as 
you  press  the  arrow  to  move  to  the 
beginning  of  the  next  (1)  or  previ- 
ous (T)  paragraph.  A  paragraph  is 
defined  as  any  sequence  of  charac- 
ters ending  in  a  return  mark. 

•  Pressing  Control-@  (Control- 
Shift-2)  puts  the  cursor  at  the  top  of 
the  screen.  If  the  cursor  is  already  at 
the  top  of  the  screen,  Control-@ 
moves  the  cursor  to  the  top  of  the 
document.  To  move  quickly  to  the 
beginning  of  the  document,  press 
Control-(a  twice. 

■  Control-2  moves  the  cursor  to  the 
end  of  the  document,  scrolling  if 
necessary.  It's  easy  to  remember- 
since  Z  is  at  the  end  of  the  alphabet. 

Making  Corrections 

Sometimes,  you'll  have  to  insert 
characters  to  make  a  correction.  Use 
Control-O  to  open  up  a  single 
space.  Merely  position  the  cursor  at 
the  point  where  you  want  to  insert 
a  space,  and  press  Control-O. 

It  can  be  tedious  to  use  Con- 
trol-O to  open  up  enough  space  for 
a  whole  sentence  or  paragraph.  For 
convenience,  SpeedScript  80  has  an 
insert  mode  that  automatically  in- 
serts space  for  each  character  you 
type.  In  this  mode,  you  can't  type 
over  characters;  everything  is  in- 
serted at  the  cursor  position.  To 
enter  insert  mode,  press  Control-I. 
To  cancel  insert  mode,  press  Con- 
trol-I again.  To  let  you  know  you're 
in  insert  mode,  the  cursor  changes 
from  a  blinking  underline  to  a 
blinking  reverse  underline,  which 
looks  like  a  solid  square.  The  cursor 
changes  back  to  a  blinking  under- 
line when  you  exit  insert  mode. 
Because  of  keyboard  decoding  re- 
dundancy, the  Tab  key  works  just 
like  Control-I. 
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IBM 

*PPLE 

COMMODORE 


HARDWARE 

CompuServe  Staner  24. S9 

Dalacase  7J( 

Disk  NolCher  4.S9 

Flip-n-Filc  1Q.B9 

Lemon  :7i9 

Lime  4a.69 


APPLE  SOFTWARE 


IBM 

Alseblasler 

!7,B9 

^^^^ 

American  Challenge 
ASC  II  Express 

24.99 

?4.!9 

Balante  ol  Power 

33.89 

Gank  Street  Writer- 

se.eg 

Breakers 

2e.B9 

CertilkiU  Miiier 

4t.e9 

LIbrtry  Vol.  1 

t9.89 

dBase  III- 

4t9.83 

Dollirs  t  Sense 

1 34.89 

Easy 
Filghl  Sim 

30.89 

28.49 

Fonlrli 

88.89 

Fomasy 

48.83 

Fnlpks  1  thru  13      ea.  I3.a9 

Framework  II 

4t9.89 

Fully  Powereii  PC 

24.89 

Ctmecard  III 

39.89 

Galo 

21,89 

Nicker  Isr  II 

24.89 

Helical  Ace 

24.89 

Jet 

31.49 

Xings  Quest  1  or  II 

31.89 

load  Runner 

22.89 

Locksmith 

K.89 

Lotus 

319.89 

Mean  1S 

34.89 

Mngr^g  Yr  Money 

114,89 



Micro  Cookbook 

27.99 

Mictosoll  WortI 

279.00 

Multipian 

110.99 

Newsroom  Pro 

74.99 

Norton  Utilities 

58.89 

Option  Soard 

79.89 

PC  Tools 

18.89 

PFS:  Access 

99.89 

PFS:  Files  Proles. 
PFS;  First  Choice 

148.89 

^^^■"^ 

104.89 

^^^— 

PFS:  Flan  Protes, 

148.89 

PFS:  Write  Protes. 

Print  Shop 

Prim  Shop  Companio 

148.89 

34.89 

1    32,89 

Prim  Shop  Gr.  --t 

21,69 

Reflex  Database 

86,89 

Report  Card 

32,89 

Sidekick 

S0,89 

Sideways  Vcr.  --3 
Sllem  Service 

39.89 

22.89 

Speedkey 

104.89 

SuperCalc  1 

279.89 

Superkey 

40.89 

Symphony 
Think  Tank 

494,39 

99.89 

Toy  Sftcp 
TrsKling  Sidekick 

46.89 
40,99 

Turbo  Database  Tlbx 

40.99 

Turbo  Lighting 

58.99 

Turbo  Pascal  3.0 

59.89 

Turbo  Prolog 

58.89 

Turbo  Tutor 

23.89 

Ultima  III 

40,89 

Visabie  mi 

47.89 

Volkswriter  DIx  -'3 

141.00 

Web.  Spell  Checker 

39,89 

Wijardry 

36,89 

Word  Perfect 

289,00 

Wordstar  2D00+ 

284,89 

APPLE  SOnWARE 

Adv.  Construction  33,89 

Alrhean  22.39 

Algeblasler  27.89 

Alpha  Plot  20.99 

ASC  II  Eipresi  74,99 

Auto  Works  25.99 

Bag  of  Tricks  2  31.89 

Bank  Street  Filer  42.89 

Bank  Street  Mailer  42.89 

Bank  Street  Writer  42.89 

Bank  Street  Speller  42.89 

Bard's  Tale  39.99 

Beagle  Bag  16.99 

Beagle  Basic  18.89 

Beagle  Compiler  41.99 

Beagle  Graphics  30.89 

Beneath  Apple  DOS  12.89 

Big  U  18.49 

Bookends  66.89 

Bop  k  Wrestle  18.89 

Breakers  28.89 

Captain  Goodnight  22.89 

Carmen  Sandlsgo  25.89 

Ceniticate  Maker  29.S9 

Library  Vol.  1  19.89 

Chart'n  Graph  TIbi  23.89 

Classmates  27.89 

Database  Toolbox  23.89 

Oaale  Draw  37.89 

O'Code  20.39 

DiskSuick  15.89 

Dollars  t  Sense  71.39 

DOS  Boss  12.39 

Double-Take  18,49 

Eidolon  24.99 

Essential  Oat)  Dup  27.99 

Extra  X  20.99 

Fantavision  31.99 

FatCal  18.49 

Flex  Type  15.49 

FonUtx  1.5  53.99 
Fntpks  1  thruU      ea.  13.89 

Font  Works  33.89 

Forecast  37.89 

Frame.Up  15.49 

Gato  21.89 

G  I  Joe  24.89 

Graphics  Department  28.89 

Graphic  Magician  25,89 

Graphworks  44.89 

GPLE  25.89 

Handler  Package  53.89 

impossible  Mission  24.89 

1.0.  Stiver  15.89 

Jeeves  28.89 

Karateka  22.89 

Knight  of  Diamonds  25.89 

Kid  Writer  24.89 

King's  Quest  I  or  II  31.89 

Koronis  Rift  24.89 

Legacy  of  Liyigamyn  28.89 

List  Handier  36.89 

LockSRIith  56.89 

Macroworks  19.89 

MngngVr  Money  111.69 

Megaworks  74.39 

Merlin  41.39 

Meriin  Pro  64.89 

Merlin  Combs  68.69 

Micro  Cooktxiok  27.89 

Niliionalre  3189 

MinipiX  1,2of  3  15.49 


Moetiius 

MouseWrite 

Muneh'A-Bug 

I^ATO  Commander 

PFS:  Plan 

PFS:  Write 

PFS:  File 

Piece  of  Cake  Math 

Pinpoint 

Prince 

Prlntographer 

Prlntmaster 

Print  Shop 

Prt  Shp  Gr,  t.2.3  or  4 

Prim  Shop  Companion 

Probyter 

Pronto  DOS 

Program  Writer 

Power  Print 

Quicken 

Report  Card 

Rescue  on  Fractalus 

Reportworks 

Rescue  Raiders 

Science  tool  kit 

Sensible  Grammar 

Sensible  Speller 

Shape  Mechanic 

Sideways 

Silicon  Salad 

Skytoi 

Speilworks 

Spitfire  Simulator 

Star  Fleet  I 

Sticky  Bear  ABC 

Car  Builder 

Drawing 

Math  1  or  2 

Math  Word  Proij, 

Music 

lumbers 

Printer 

Reading 

Rd,  Comprehension 

Speligrabber 

Townbuilder 

Typing 
Summer  Games  I  or  II 
Super  Macrowwks 
Terrapin  Logo 
Think  Tank 
Thinkwofks 
Tip  Disk  n 
Toy  Shop 
Transyhranla 
Trinity 
Tnple-Dump 
Turbo  Database  Tlbx 
Turbo  Pascal  3.0 
Turbo  Tutor 
Type 
Ullima  IV 

Understanding  ll£ 
Universal  file  conv 
Utility  City 
Video  Tooibox 
Visabie  6502 
Wilderness 
Wiiardry 

Wifvd's  Tooibox 
Wiiprint 
Word  Handler 
Word  Perfect 
Wcdd's  Gttst  FIball 
Wntt  Choice 


40.99 
38.89 
23.99 
22.89 
75.89 
75.89 
75.69 
23.19 
39.89 
48.89 
23.89 
27.89 
31.89 
15.89 
24.89 
18.49 
15.49 
33,89 
20,89 
34,89 
32,89 
24,89 
74.89 
21.(9 
44.89 
55,69 
63,89 
20,69 
38.69 
12.89 
27.89 
29.39 
24.75 
33.89 
22.39 
23,89 
22.69 
22.69 
22.89 
22,39 
22.89 
22.89 
22,69 
22.39 
22.39 
22.39 
22.89 
21-89 
32.39 
63.39 
79.83 
74,89 
11.89 
38.19 
13.(9 
24.89 
20-89 
39.89 
44.89 
21.89 
26.89 
40,89 
17.89 
24.89 
15.49 
23.89 
31.75 
34,89 
31,89 
23,89 
16,89 
36.89 
84.89 
24.89 
24.89 
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Acroiet  22.89 

Air  Rescue  t  24.89 

Bard's  Tale  30.89 

Bailblaier  24,89 
Back  to  Basics  134.89 
Bank  Street  Slorytiook  27.89 

Bank  Street  Speller  34.69 

Bank  Street  Writer  34.89 

Basic  Toolkh  29.89 

Blailng  Paddles  24.89 

Borrowed  Time  20.89 

Carmen  Sandiigo  22.69 

Cenlllcate  Maker  29.89 

Color  Me  20.89 

Cntdwn  10  Shidwn  20.89 

Fast  Tracks  20.89 

Gato  20.89 

Gertrude's  Secrets  20.89 

G I  Joe  24.89 

Graphics  Magician  27.89 

Grt  Amer  Road  Race  19.89 

Hacker  20.89 

Jet  27.89 

Jet  Combat  Simulator  20,69 

Karateka  22.89 

Kennedy  Approach  24.89 

Kung  Fu  20.89 

Little  Comp.  People  24.89 

Mail  Older  Monsters  24.89 

Menin  34.89 

MIg  Alley  Ace  24.89 

Multiplan  64/128  43.89 

Nato  Commander  22.89 

Paperclip  41.89 

Prtnl  Shop  29.89 

Print  Shop  Comp  21.89 

Pr.  SliopQr.  1.2.or3  15,89 

Rescue  on  Fractatus  24.89 

Scrabble  27.89 

Sideways  20,89 

Silent  Service  22.89 

Spitfire  Ace  20.39 

Spreadsheet  34,39 

Sticky  Bear  ABC  20,89 

Numbers  20.89 

Opposltes  20,69 

Shapes  20.69 

Summer  Games  I  or  II  24,89 

Temple  ol  Apshi  Tril.  24.89 

Toy  Shop  39.99 

Transformers  24,39 

World  Games  24,39 

World's  Gnsi  Bsball  24,99 

World's  Grist  FIball  24,39 


Ballyhoo 

Clip  Art  (Vol  1  u  3| 
Clip  Art  {Vol  2) 
Copy  II  - 

Crossword  Magic 
Crusade  in  Europe 
Cutthroats 
Early  Games 
Easy  as  ABC's 
Enchanter 
family  flools 
Fraction  Factory 
F-15  Strike  Eagle 
Graphics  Expander 
Ghost  Busters 
Hitchhiker's  Guide 
leather  Goddesses 
load  Runner 
Magic  Spelts 
Masteriype 
Math  Blaster 
Micro  Lg.  Baseball 
Micro  Lg.  Manager 
Micro  Lg.  Team 
Mind  Forever  Voy. 
Music  Construction 
Newsroom 
One-On-One 
Pitsiop  II 
Planellill 
Reader  Rabbil 
Sargon  III 

Sal  (Hercott  Brace] 
Sorcerer 
Speed  Reader  II 
Spell  breaker 
Spelt  n 
Slarcross 
Star  Trek  I  or  II 
Suspect 
Tass  Times 
Unima  III 

Temple  ol  Apshii  Id 
Trinity 

Typing  Tutor  JJ 
Will  Writer 
Winter  Games 
Wishbnnger 
Witness 
Word  Attack 
World's  Gnst  Bsbal 
ZorkI 

Zork  II  or  III 
Zork  Trilogy 


24.89 
19.89 
24.89 
19.89 
31.89 
24.89 
24.89 
20.89 
23,89 
24,89 
149,83 
19,89 
22,89 
24,89 
24,89 
24,89 
24,89 
22,89 
25,89 
26,89 
27,89 
24.89 
24.69 
13.89 
24.69 
12.89 
34.89 
12.69 
24.69 
24.89 
24.69 
31.89 
27.39 
27.89 
38.39 
30.39 
27.39 
36,39 
27.39 
27.89 
24,99 
40.89 
24.69 
24.39 
31.39 
28.89 
34.39 
24.89 
24,99 
27.89 
24.99 
24.99 
27,89 
46.89 


MOMTOFIS 

Magnavoi  Monitors       CALL 

Amdek  Color  600        414,99 
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Name. 


Address- 
Cily ^ 


.  State . 


-Zip. 


Ctiatge  -■ 

Ek 

n  Dairs 

QTY. 

DESCRIPTION 

PRICE 

Compu 
PhonB 

fir  Typfi 

SHIPPING 

Mn. 

TOTAL 

Add  S3  00  min  us  shipping.  C  O.D,  S5.00  enifa  Hawaii  and  Alas^la  S^  95  mm.  Orders 
ouisiiia  U  S  are  not  insufBd  CanaCa  &  Mexico  ICMi  rmn  S10  00  All  olhei  coun|rie$  25^^ 
min  S30  00  yaswrCara  Vtsaar.d  school  p^rcnaseoriacfsacceplM  Personal  checks  aflow 
3  weeks  6  5^B  saSes  lax  tor  Ohio  resifleriT^.  Deleclive  rispiaced  withm  20  days,  £<Wp  restocking 
fee  if  nol  replaced  wilh  sama  nam  Campatitaliiy  noi  guaranteed.  P/icas  subiecl  lo  change 
wiihoul  naiics 


APCLE  HARDWARE 

80  Col.  64K  Card  |ll  E 

49.89 

Apple  Cat  II 

184.89 

Disk  Drive  Cont 

47.00 

Disk  Drive  HI  Tech 

119.89 

Gibson  Light  Pan 

148.00 
118.89 
74.89 

Grappler  Suffered 

^^^^ 

GrapplerPro 

Grappler  (ierlal| 

74.69 

Grappler  C 

74,69 

Hot  link 

44.89 

Kralt  Joystick  ilE  tIC 

23.89 

Koala  Pad  - 

78.89 

Laser  128  Computer 
Mach  II  Joystick 

389.00 

28.89 

Math  III  Joystick 

34.89 

Micromodem  HE 

139.69 

MockingE>oard  A  or  B 

64.89 

Mockinglioard  C 

114.89 

MuitiramCXS12K 

174.00 

Uuliiram  IE  80/64K 

119.00 

Mouse  House 

7.49 

Mouse  Mat 

6.49 

Paddleslloks 

26.50 

Parallel  Printer  Card 

44,89 

Promelheys  1200A 

254.89 

Print,  it 

122  89 

Haint«ctorS12K 

219.89 

Ramfactot  1  MEG 

289,89 

Ramworks  64K 

139,89 
199,89 
289,89 

Ramworks  512K 

Ramworks  1  MEG 

Super  Serial  Card 

89.89 

System  Saver  Fan 

53.89 

Thunder  Clock 

109.89 

Wildcard  II 

T4.89 

ZEE  80A  Checkmate 

54,89 

Zoom  IlE 

102.89 

PRINTERS 

CitUen  1290 

174.69 

StarLVtitO 

189.89 

Star  NX-10 

256.00 

Printer  Stand 

16.89 

Okimale  20 

209.89 

Colored  prntr  ribbons 

CALL 

Color  Paper  Pack 

12.89 

Print  Shop  Refill 

12.89 

Insert  mode  is  the  easiest  way 

to  insert  text,  but  it  can  become  too 
slow  when  you're  inserting  near  the 
top  of  a  very  long  document,  be- 
cause it  must  move  all  the  text  fol- 
lowing the  cursor  position.  So 
SpeedScript  80  has  even  more  ways 
to  insert  blocks  of  text. 

One  way  is  to  use  Control-T. 
It's  programmed  in  SpeedScript  80 
to  act  as  a  five-space  margin  indent. 
To  end  one  paragraph  and  start  an- 
other, press  Return  twice  and  press 
Control-T.  A  shortcut  for  this  is 
Control-].  This  key  combination 
automatically  inserts  two  return 
marks  and  then  indents  the  margin. 
Control-T  always  inserts;  you  don't 
need  to  be  in  insert  mode.  You  can 
also  use  Control-T  to  open  up  more 
space  than  Control-0.  (You  cannot 
set  or  clear  tab  stops  in  SpeedScript 
80  as  you  can  with  some  word  pro- 
cessors.) No  matter  how  much 
space  you  want  to  insert,  each  in- 
sertion takes  the  same  amount  of 
time.  So  Control-T  can  insert  five 
spaces  five  times  faster  than  press- 
ing Control-0  five  times. 

There's  an  even  better  way, 
though.  Press  Control-Q  to  quickly 
insert  255  spaces.  (It  doesn't  insert  a 
line;  use  Return  for  that.)  You  can 
press  it  several  times  to  open  up  as 
much  space  as  you  need.  Control-Q 
inserts  255  spaces  as  fast  as  Con- 
trol-0 opens  up  one  space.  Now 
just  type  the  text  you  wanted  to 
insert  over  the  blank  space.  (You 
don't  want  to  be  in  Control-I  insert 
mode  when  you  use  this  trick;  that 
would  defeat  its  purpose.) 

Since  Delete  is  also  slow  when 
you're  working  with  large  docu- 
ments (it,  too,  must  move  all  text 
following  the  cursor),  you  may  pre- 
fer to  use  the  *-  key  to  backspace 
when  using  this  method. 

After  you've  finished  inserting, 
there  may  be  some  inserted  spaces 
left  over  that  you  didn't  use.  Just 
press  OpAp-Control-Q.  This  in- 
stantly deletes  all  extra  spaces  be- 
tween the  cursor  and  the  start  of 
following  text.  It's  also  useful 
whenever  you  need  to  delete  a 
block  of  spaces  for  some  reason. 

Erasing  Text 

To  erase  the  character  on  which  the 
cursor  is  sitting,  press  Control-G 
(to  grab  the  character).  The  charac- 
ter highlighted  by  the  cursor  is  re- 


ProDOS 
Modifications 


The  SpeedScript  80  word  processor 
listed  in  this  issue  is  for  DOS  3.3.  To 
create  an  enhanced  ProDOS  ver- 
sion, you  need  to  do  a  little  more 
than  simply  enter  the  program.  (If 
you've  bought  this  issue's  compan- 
ion disk,  the  ProDOS  version  is  al- 
ready on  it  and  no  conversion  is 
necessary.  However,  you  will  need 
to  refer  to  the  instructions  below  for 
putting  the  SpeedScript  80  SS.SYS- 
TEM  file  on  a  disk  with  the  PRO- 
DOS  file,  but  without  the 
BASIC.5YSTEM  file.) 

Apple's  ProDOS  operating 
system  offers  a  considerable  im- 
provement in  performance  and  util- 
ity over  DOS  3.3,  but  it  also  makes 
things  a  little  more  complicated. 
ProDOS  uses  and  lays  out  memory 
differently  from  DOS  3.3,  so  many 
DOS  3.3  machine  language  pro- 
grams are  not  compatible  with  Pro- 
DOS.  Also,  many  DOS  3.3 
functions  are  not  supported  in  the 
same  way  by  ProDOS,  This  is 
enough  to  keep  the  original  Apple 
version  of  SpeedScript  80  from  run- 
ning with  ProDOS,  even  if  you  save 
it  on  a  ProDOS  disk. 

The  solution  is  "ProDOS  Mak- 
er," which  changes  an  existing  copy 
of  DOS  3.3  SpeedScript  80  into  a 
program  usable  with  ProDOS.  As  a 
bonus,  ProDOS  SpeedScript  80 
gives  you  lOK  more  of  text  memory 
to  work  with. 

Making  The  Conversion 

First,  type  in  SpeedScript  80  using 
MLX  as  described  above.  To  pre- 
pare for  the  conversion,  type  in  and 
save  both  Programs  4  and  5  below. 
Program  4  is  a  BASIC  program  that 
makes  the  changes  to  SpeedScript 
80.  Program  5  is  a  binary  file  that 
must  be  typed  in  with  the  MLX 
program. 

To  enter  the  data  from  Pro- 
gram 5,  load  and  run  the  MLX  pro- 
gram. Note  that,  while  special 
preparations  are  necessary  before 
loading  MLX  to  enter  SpeedScript  80 
data,  no  unusual  steps  are  needed 
before  loading  MLX  to  enter  data 
from  Program  5.  Apple  MLX  asks 


you  for  the  starting  and  ending  ad- 
dresses of  the  program  you're  typ- 
ing in.  Enter  the  values  as  indicated: 

STARTING  ADDRESS?   3AF0 
ENDING  ADDRESS?        3CBF 

Next,  you'll  see  a  menu.  Press 
E  to  enter  data;  then  enter  3AF0  as 
the  address  at  which  to  begin  typ- 
ing. Program  5  is  not  a  long  listing, 
so  take  your  time  and  be  careful. 
MLX  will  ask  you  to  retype  a  line  if 
you  make  a  mistake.  When  you 
finish,  you  return  to  the  MLX  menu. 
Press  S  to  save  the  file.  You  must 
use  the  name  SPEEDSCRIPT2  for 
the  data  from  Program  5,  since  this 
is  the  filename  which  Program  4 
looks  for. 

After  you've  typed  in  the  pro- 
grams (you  may  want  to  make 
backup  copies  of  them  on  another 
disk  for  security),  follow  these  step- 
by-step  instructions: 

1.  If  you  have  an  Apple  He,  load 
and  run  the  "Filer"  system  utili- 
ties program  from  your  ProDOS 
master  disk.  For  the  Apple  lie, 
boot  up  the  System  Utilities  disk. 
For  the  Apple  IIGS,  boot  up  the 
System  disk,  open  the  folder  SY- 
S.UTILS,  and  run  the  applica- 
tion SYSUTIL.SYSTEM. 

2.  If  you're  using  Filer,  select  op- 
tion V  (Volume  Commands) 
from  the  main  menu;  then  select 
option  F  (Format  a  Volume) 
from  the  Volume  Commands 
menu.  If  you're  using  the  lie  Sys- 
tem Utilities  disk,  select  option  6 
(Format  a  Disk).  If  you're  using 
the  IlGS,  select  Format  a  Disk 
from  the  column  Work  on  Entire 
Disks. 

Insert  a  blank  disk  into  the 
drive  and  format  it  for  use  with 
ProDOS.  Type  in  SPEED. DATA 
for  the  volume  name,  or  just 
press  Return  when  asked  for  the 
volume  name. 

3.  If  you're  using  Filer,  select  op- 
tion F  (File  Commands)  from  the 
main  menu;  then  select  option  C 
(Copy  Files)  from  the  File  Com- 
mands menu.  From  the  lie's  Sys- 
tem Utilities  menu,  simply  select 
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option  1  (Copy  File).  For  the 
IlGS,  choose  Copy  File  from  the 
column  labeled  Work  on  Indi- 
vidual Files. 

Copy  the  file  named  PRO- 
DOS  from  the  ProDOS  master 
disk  to  your  newly  formatted 
ProDOS  disk. 

4.  Now  copy  the  DOS  3.3  version 
of  SpeedScript  80  to  the  newly 
formatted  disk.  Even  if  you 
typed  in  SpeedScript  80  and 
saved  it  on  a  ProDOS  disk,  go 
ahead  and  copy  it  to  this  disk  for 
convenience.  Important:  Make 
sure  SpeedScript  80  is  saved  on 
the  disk  with  the  filename 
SPEEDSCRIPT,  since  this  is  the 
name  Program  4  looks  for. 

5.  Copy  Program  4  and  the  file  you 
created  from  the  data  in  Pro- 
gram 5  (using  MLX)  onto  the 
same  disk  with  SPEEDSCRIPT. 
You  can  name  Program  4  any- 
thing you  like.  We  used  the 
name  PRODOS. MAKER.  Be 
sure  that  the  binary  file  created 
from  Program  5  is  named 
SPEEDSCRIPT2. 

6.  Verify  that  the  disk  contains  the 
following  files: 

PRODOS  The  ProDOS  operat- 

ing system 

SPEEDSCRIPT        The  DOS  3.3  version 
of  SpeedScript  80 

PRODOS.MAKER  Program  4,  the  Pro- 
DOS  Maker  BASIC 
program 

SPEEDSCRIPT2       The  ProDOS  Matter 
binary  file  (from 
Program  S) 

7.  You're  now  ready  to  convert  the 
DOS  3,3  version  of  SpeedScript 
80  to  ProDOS.  Run  Program  4 
(PRODOS.MAKER).  It  reads  the 
file  SPEEDSCRIPT,  merges  it 
with  SPEEDSCRIPT2,  makes 
some  modifications,  and  then 
permits  you  to  switch  disks 
before  it  saves  a  new  file  called 
SS.SYSTEM,  which  is  the  Pro- 
DOS  version  of  SpeedScript  80. 
We  recommend  leaving  the 
same  disk  in  the  drive  the  first 
time  you  perform  the  conver- 
sion process.  Later,  you  can  use 
ProDOS  Maker  to  create  addi- 
tional copies  of  ProDOS  Speed- 
Script  80  on  other  disks,  or 
simply  copy  the  file  SS.SYSTEM 
onto  a  backup  disk  with  the 
Copy  Files  utility.  If  you  want 
the  backups  to  be  SpeedScript  80 
startup  disks,  make  sure  each 


disk  contains  the  PRODOS  file 
and  does  not  have  the  file  BA- 
SIC.SYSTEM  on  it.  (Otherwise, 
BASIC.SYSTEM  will  take  priori- 
ty over  SS.SYSTEM,  and 
SS.SYSTEM  will  not  boot  up 
automatically.) 
8.  Your  new  ProDOS  SpeedScript 
80  disk  is  now  ready  to  boot  up 
and  use.  Just  insert  the  disk  into 
the  drive  and  turn  on  your  com- 
puter— SpeedScript  80  automati- 
cally loads  and  runs.  To  run 
SpeedScript  80  after  you've  al- 
ready booted  up  your  system 
from  another  ProDOS  startup 
disk,  just  enter  -SS.SYSTEM. 
The  hyphen  (-)  is  the  ProDOS 
"smart  load"  command. 

Using  ProDOS  SpeedScript 
80 

The  ProDOS  version  of  SpeedScript 
80  varies  only  slightly  in  operation 
from  the  original  DOS  3.3  version. 
Because  ProDOS  is  stored  in  the 
upper  16K  of  memory,  and  because 
BASIC.SYSTEM  is  not  needed  for 
SpeedScript  SO,  you  have  about  lOK 
more  of  text  memory  in  ProDOS 
than  you  do  with  DOS  3.3. 

All  changes  in  the  instructions 
for  using  the  ProDOS  version  of 
SpeedScript  80  are  to  support  Pro- 
DOS  filename  conventions.  Con- 
trol-C  still  displays  a  disk  catalog. 
But  the  filename  convention  for 
Load,  Save,  and  the  G  (goto  file) 
printkey  command  has  changed.  If 
you  boot  SpeedScript  80  off  its  own 
startup  disk,  it  remembers  the  vol- 
ume name  of  the  disk  it  was  booted 
from.  You  don't  have  to  enter  a 
volume  name  to  load,  save,  or  link 
to  a  file  on  that  disk.  Just  enter  any 
legal  ProDOS  filename.  Remember 
that—unhke  DOS  3.3— ProDOS 
does  not  allow  spaces  in  filenames. 
Using  spaces  in  a  filename  courts 
disaster. 

To  access  a  file  on  any  other 
disk,  though,  you'll  have  to  enter 
the  volume  name.  For  example,  if 
you  want  to  load  the  file  named 
SPROITZ  from  a  disk  with  the  vol- 
ume name  BLANK27,  enter 
/BLANK27/SPROITZ  at  the 
LOAD:  prompt.  Just  surround  the 
volume  name  with  slashes.  If  you 
have  two  drives,  ProDOS  automati- 
cally searches  for  the  indicated  vol- 
ume name  on  both  drives. 


moved,  and  all  following  text  is 
moved  toward  the  cursor  to  fill  the 
empty  space. 

Press  the  Delete  key  to  delete 
the  character  to  the  left  of  the  cur- 
sor. All  the  following  text  is  moved 
with  the  cursor  to  fill  the  empty 
space. 

These  keys  are  fine  for  minor 
deletions,  but  it  could  take  all  day 
to  delete  a  whole  paragraph  using 
them.  So  SpeedScript  80  has  two 
commands  that  can  delete  an  entire 
word,  sentence,  or  paragraph  at  a 
time.  Control-E  erases  text  after  (to 
the  right  of)  the  cursor  position 
(and  can  also  erase  all  text),  and 
Conlrol-D  deletes  text  preceding 
the  cursor. 

To  use  the  Control-E  erase 
mode,  first  place  the  cursor  at  the 
beginning  of  the  word,  sentence,  or 
paragraph  you  want  to  erase.  Then 
press  Control-E.  The  command  line 
shows  the  message  ERASE 
(S,W,P,A):  RETURN  TO  EXIT. 
Press  S  to  erase  a  sentence,  W  for  a 
word,  or  P  for  a  paragraph.  Each 
time  you  press  one  of  these  letters, 
the  text  is  quickly  erased.  You  can 
keep  pressing  S,  W,  or  P  until 
you've  erased  all  the  text  you  wish. 
Then  press  RETURN  to  exit  the 
erase  mode. 

You  also  use  Control-E  to  erase 
all  text  from  memory  when  you 
want  to  start  a  new  document.  To 
erase  all  text,  press  Controt-E;  then 
press  the  A  (all)  key.  A  prompt  ap- 
pears: ERASE  ALL  TEXT:  ARE 
YOU  SURE  (Y/N).  Press  Y  to  per- 
form the  irreversible  deed.  You  can- 
not recover  any  text  erased  in  this 
way.  Press  N  or  any  other  key  to 
cancel  this  function. 

The  Control-D  delete  mode 
works  similarly  to  Control-E,  but  it 
deletes  only  one  word,  sentence,  or 
paragraph  at  a  time.  First,  place  the 
cursor  after  the  word,  sentence,  or 
paragraph  you  want  to  delete.  Then 
press  Control-D.  Next,  press  S,  W, 
or  P  for  sentence,  word,  or  para- 
graph. The  text  is  immediately  de- 
leted and  you  return  to  editing.  You 
don't  need  to  press  Return  to  exit 
the  Control-D  delete  mode  unless 
you  pressed  this  key  by  mistake.  (In 
general,  you  can  escape  from  any 
function  in  SpeedScript  80  by  simply 
pressing  Return.)  Control-D  is  most 
convenient  when  the  cursor  is  al- 
ready past  what  you've  been  typing. 
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The  Text  Buffer 

When  you  erase  or  delete  with 
Control-E  and  Control-D,  the  text 
isn't  lost  forever  (unless  you've  per- 
formed an  Erase  All),  SpeedScript  80 
remembers  what  you've  removed 
by  storing  deletions  in  a  separate 
area  of  memory  called  a  buffer.  The 
buffer  is  a  fail-safe  device.  If  you 
erase  too  much  or  change  your 
mind,  just  press  Control-"  (Con- 
trol-Shift-6)  to  restore  the  deletion. 
Be  aware,  however,  that  SpeedScript 
80  normally  remembers  only  the 
last  erase  or  delete  you  performed. 
It's  not  hard  to  remember  this  com- 
mand, since  the  "  (caret)  symbol  is 
used  in  paper-and-pencil  editing  to 
signify  an  insertion. 

Another,  more  powerful  use  of 
this  buffer  is  to  move  or  copy  sec- 
tions of  text.  To  move  some  text 
from  one  location  in  your  docu- 
ment to  another,  first  erase  or  delete 
it  with  Control-E  or  Control-D. 
Then  move  the  cursor  to  where  you 
want  the  text  to  appear  and  press 
Control-*.  Control-"  instantly  in- 
serts the  contents  of  the  buffer  at 
the  cursor  position.  If  you  want  to 
copy  some  text  from  one  part  of 
your  document  to  another,  just 
erase  or  delete  it  with  Control-E  or 
Control-D,  restore  it  at  the  original 
position  with  Control-',  then  move 
the  cursor  elsewhere,  and  press 
Control-*  to  restore  it  again  in  the 
new  position.  You  can  retrieve  the 
buffer  with  Control-"  as  many  times 
as  you  like.  If  there  is  no  room  left 
in  memory  for  inserting  the  buffer 
contents,  you'll  see  the  message 
NO  ROOM. 

Important:  The  Control-E 
erase  mode  lets  you  erase  up  to  the 
maximum  size  of  the  buffer  (2K,  or 
about  2,000  characters).  If  you  try 
to  erase  more  text  than  the  buffer 
will  hold,  you'll  get  the  message 
BUFFER  FULL,  and  erase  mode  will 
be  canceled.  Each  new  Control-E 
removes  the  previous  contents  of 
the  buffer.  Keep  this  in  mind  if 
there's  something  in  the  buffer 
you'd  rather  keep.  If  you  don't 
want  the  current  buffer  contents  to 
be  erased,  hold  down  the  Open  Ap- 
ple key  when  you  press  Control-E. 
OpAp-Control-E  works  just  like 
Control-E,  except  that  it  preserves 
the  current  buffer  contents  and 
adds  the  newly  erased  text  to  the 
buffer. 


If  you  ever  need  to  erase  the 
contents  of  the  buffer,  press  Con- 
trol-N  (null  buffer).  As  an  added 
safety  measure,  you'll  be  asked  if 
you  are  sure  you  want  to  erase  the 
buffer.  Press  Y  to  null  the  buffer, 
and  N  (or  any  other  key  except  Y)  to 
cancel  the  command. 

Search  And  Replace 

SpeedScript  SO  has  a  FIND  com- 
mand that  searches  through  your 
document  to  find  a  selected  word  or 
phrase.  A  Replace  option  lets  you 
automatically  change  one  word  to 
another  throughout  the  document. 

OpAp-Control-F  {find)  lets 
you  define  a  search  phrase,  or 
OpAp-Control-R  (replace)  lets  you 
define  a  replace  phrase,  and  Con- 
trol-Y  is  used  for  automatic  search- 
ing and  replacing. 

Searching  is  a  two-step  pro- 
cess. First,  you  need  to  tell  Speed- 
Script  80  what  to  search  for;  then 
you  trigger  the  actual  search.  Hold 
down  Open  Apple  and  press  Con- 
trol-F.  The  command  line  prompts 
FIND;.  Type  in  what  you'd  like  to 
search  for — the  search  phrase — and 
then  press  Return.  If  you  press  Re- 
turn alone  without  typing  any- 
thing, the  Find  command  is 
canceled. 

When  you're  ready  to  search 
for  the  specified  phrase,  press  Con- 
trol-F  (without  the  Open  Apple). 
SpeedScript  80  looks  for  the  next 
occurrence  of  the  search  phrase 
starting  from  the  current  cursor  posi- 
tion. If  you  want  to  hunt  through 
the  entire  document,  press  Control- 
@  twice  to  move  the  cursor  to  the 
very  top  before  beginning  the 
search.  Each  time  you  press  Con- 
trol-F,  SpeedScript  80  looks  for  the 
next  occurrence  of  the  search 
phrase  and  places  the  cursor  at  the 
start  of  the  phrase.  If  the  search 
fails,  you'll  see  the  message  NOT 
FOUND. 

Control-R  works  together 
with  Control-R  After  you've  speci- 
fied the  search  phrase  with  OpAp- 
Control-F,  press  OpAp-Control-R 
to  specify  the  replace  phrase.  (You 
can  press  Return  alone  at  the  RE- 
PLACE WITH;  prompt  to  select  a 
null  replace  phrase.  When  you  hunt 
and  replace,  this  deletes  the  located 
phrase.)  To  search  and  replace 
manually,  start  by  pressing  Con-  | 


trol-F.  After  SpeedScript  80  finds  the 
search  phrase,  press  Control-R  if 
you  want  to  replace  the  phrase.  If 
you  don't  want  to  replace  the 
phrase,  don't  press  Control-R. 
You're  not  in  a  special  search-and- 
replace  mode.  You're  free  to  contin- 
ue writing  at  any  time. 

Control-Y  links  Control-F  and 
Control-R  together.  (Think  of  the 
two  branches  of  the  Y  linking  to- 
gether Find  and  Replace.)  It  first 
asks  for  a  search  phrase,  then  asks 
for  a  replace  phrase,  and  finally, 
automatically  searches  and  replaces 
throughout  the  document  starting 
from  the  current  cursor  position. 

There  are  a  few  things  to  watch 
out  for  when  you're  using  search 
and  replace.  First,  realize  that  if  you 
search  for  the,  SpeedScript  80  finds 
the  embedded  the  in  words  like 
therefore  and  heathen.  If  you 
changed  all  occurrences  of  the  to 
cow,  these  words  would  become 
cowrefare  and  heacawn.  If  you  want 
to  find  a  single  word,  be  sure  to 
include  a  space  as  the  first  character 
of  the  word,  since  almost  all  words 
are  preceded  by  a  space.  Naturally, 
if  you're  replacing,  you  need  to  in- 
clude the  space  in  the  replace 
phrase,  too. 

SpeedScript  80  also  distin- 
guishes between  uppercase  and 
lowercase.  The  word  Meldids  does 
not  match  with  meldids.  SpeedScript 
80  will  not  find  a  capitalized  word 
unless  you  capitalize  it  in  the  search 
phrase.  To  cover  all  bases,  you  will 
sometimes  need  to  make  two 
passes  at  replacing  a  word.  Keep 
these  things  in  mind  when  using 
Control-Y,  since  you  don't  have  a 
chance  to  stop  a  linked  find-and- 
replace. 

Storing  Your  Document 

To  store  your  text,  press  Control-S. 
You'll  see  the  prompt  SAVE;.  Type 
in  a  legal  filename  and  press  Re- 
turn. SpeedScript  80  defaults  to 
drive  1.  If  you  need  to  access  a 
second  disk  drive,  precede  the  file- 
name with  2:.  Once  specified,  this 
becomes  the  default  drive  for  future 
disk  access.  To  return  to  drive  1, 
precede  the  filename  with  1:. 

If  the  filename  you  specify  co- 
incides with  one  already  on  the 
disk,  the  existing  file  will  be  over- 
written by  the  new  one.  (You  won't 
be  given  any  warning,  so  be  careful 
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not  to  accidentally  use  duplicate 
filenames.)  You  can  press  Control- 
C  to  display  a  catalog  of  the  files  on 
the  disk.  The  catalog  pauses  when 
the  screen  is  full,  waiting  for  you  to 
press  a  key  to  continue.  When  the 
catalog  is  finished,  press  Return  to 
return  to  editing. 

Control-S  always  saves  the  en- 
tire document.  The  cursor  position 
within  the  document  is  not 
important. 

When  the  save  is  complete, 
SpeedScript  80  reports  NO  ERRORS 
if  all  is  well,  or  it  gives  a  message 
like  DISK  FULL  if  not.  Check  your 
DOS  or  BASIC  manual  for  a  list  of 
error  messages  and  their  causes. 

Loading  A  Document 

To  recall  a  previously  saved  docu- 
ment, press  Control-L.  Answer  the 
LOAD:  prompt  with  the  filename. 
Again,  you  can  precede  the  file- 
name with  1:  or  2:  to  switch  drives 
as  necessary.  SpeedScript  80  loads 
the  file  and  will  display  NO  ER- 
RORS if  no  problems  are  encoun- 
tered in  the  load;  otherwise,  it 
reports  the  error. 

It's  important  to  position  the 
cursor  correctly  before  loading  a  file. 
Documents  start  loading  at  the  cur- 
sor position,  so  be  sure  to  press 
Control-@  twice  or  Control-E  and 
A  (Erase  All)  to  move  the  cursor  to 
the  start  of  text,  unless  you  want  to 
merge  two  documents.  When  you 
press  Control-L  to  load,  a  flashing 
asterisk  appears  to  warn  you  if  the 
cursor  is  not  at  the  top  of  the 
document. 

To  merge  two  or  more  files, 
simply  load  the  first  file,  press  Con- 
trol-Z  to  move  the  cursor  to  the  end 
of  the  document,  and  then  load  the 
file  you  want  to  merge.  Do  not 
place  the  cursor  somewhere  in  the 
middle  of  your  document  before 
loading.  A  load  does  not  insert  the 
text  from  disk,  but  overwrites  all 
text  after  the  cursor  position.  The 
last  character  loaded  becomes  the 
new  end-of-text  pointer,  and  you 
cannot  access  any  text  that  appears 
ahead  of  this  pointer. 

SpeedScript  80  stores  docu- 
ments as  binary  files,  so  you  cannot 
read  a  document  in  BASIC,  load  a 
BASIC  program  into  SpeedScript  80 
for  editing,  or  upload  a  document 
file  with  a  modem.  However,  Pro- 
grams 2  and  3  (both  of  which  ap- 


pear after  the  listing  for  SpeedScript 
80  itself)  are  file-conversion  pro- 
grams which  allow  these  functions. 
They  convert  SpeedScript  80  binary 
document  files  into  ASCII  text  files. 
They  can  also  convert  an  ASCII  text 
file  into  a  SpeedScript  80  binary  file. 
This  lets  you  convert  documents 
from  other  word  processors  or 
change  a  SpeedScript  80  document 
into  a  text  file  suitable  for  upload- 
ing via  telecommunications.  You 
can  even  edit  BASIC  programs  with 
SpeedScript  80.  Add  the  following 
line  to  your  BASIC  program  and 
run  it.  It  creates  a  text  file  of  your 
BASIC  listing. 

0  PRINT  CHR$(4);"OPEN  filename": 
PRINT  CHR$(4)"WRITE  filename": 
LIST 

Use  the  SpeedScript  80  "File 
Converter"  (Program  2  for  DOS  3.3 
or  Program  3  for  ProDOS)  to  con- 
vert the  program  text  file  into  a 
SpeedScript  80  file.  You  can  then 
load  this  file  into  SpeedScript  80  for 
editing.  Save  the  edited  file  back  to 
disk,  run  the  File  Converter  pro- 
gram again  to  convert  the  Speed- 
Script  SO  file  back  to  a  text  file,  and 
then  use  EXEC  filename  to  read  the 
text  file  back  into  BASIC.  Although 
this  seems  rather  tedious,  you  may 
find  it  worthwhile  when  working 
with  long  programs.  A  similar  tech- 
nique can  be  used  to  edit  files  writ- 
ten by  other  applications. 

Note:  Delete  any  print-format- 
ting commands  (described  below) 
before  using  the  File  Converter  pro- 
gram to  change  a  SpeedScript  80  file 
into  a  text  file.  Otherwise,  the  em- 
bedded commands  will  not  be  con- 
verted properly,  and  the  text  file 
may  not  be  usable. 

Additional  Features 

SpeedScript  80  has  a  few  commands 
that  don't  do  much,  but  are  nice  to 
have.  Control-X  exchanges  the 
character  under  the  cursor  with  the 
character  to  the  right  of  the  cursor. 
Thus,  you  can  fix  transposition  er- 
rors with  a  single  keystroke.  Con- 
trol-W  (think  sWitch)  changes  the 
character  under  the  cursor  from  up- 
percase to  lowercase,  or  vice  versa. 
Apple  SpeedScript  80  traps  the 
Reset  key.  Reset  and  Control-Reset 
always  return  you  to  editing  mode. 
There's  no  way  to  exit  SpeedScript 
80  once  you've  run  it,  short  of 
rebooting. 


Printing 

If  you  already  think  SpeedScript  80 
has  plenty  of  comn\ands,  wait  until 
you  see  what  the  printing  package 
offers.  SpeedScript  80  supports  an 
array  of  powerful  formatting  fea- 
tures. It  automatically  fits  your  text 
between  left  and  right  margins  that 
you  can  specify.  You  can  center  a 
line  or  block  it  against  the  right 
margin.  SpeedScript  80  skips  over 
the  perforation  on  continuous-form 
paper,  or  it  waits  for  you  to  insert 
single-sheet  paper.  A  line  of  text 
can  be  printed  at  the  top  of  each 
page  (a  header)  and/or  at  the  bot- 
tom of  each  page  (a  footer),  and  can 
include  automatic  page  numbering, 
starting  with  whatever  number  you 
like. 

SpeedScript  80  can  print  on  dif- 
ferent lengths  and  widths  of  paper, 
and  single-,  double-,  or  triple-  spac- 
ing (or  any  spacing,  for  that  matter) 
is  easy.  You  can  print  a  document 
as  big  as  will  fit  on  a  disk  by  linking 
several  files  together  during  print- 
ing. You  can  print  to  the  screen  or  to 
a  file  instead  of  to  a  printer.  You  can 
send  special  codes  to  the  printer  to 
control  features  like  underline, 
boldface,  italics,  and  double-width 
typeface  (depending  on  the  printer). 

But  with  all  this  power  comes 
the  need  to  learn  additional  com- 
mands. Fortunately,  SpeedScript  80 
sets  most  of  these  variables  to  a 
default  state.  If  you  don't  change 
the  settings,  SpeedScript  80  assumes 
a  left  margin  position  of  5,  a  right 
margin  position  of  75,  no  header  or 
footer,  single-spacing,  and  continu- 
ous-paper page  feeding.  You  can 
change  these  default  settings  if  you 
want  (see  below). 

Before  printing,  be  sure  the  pa- 
per in  your  printer  is  adjusted  to 
top-of-form  (move  the  paper  perfo- 
ration just  above  the  printing  ele- 
ment). One  additional  note:  Some 
printers  incorporate  an  automatic 
skip-over-perforation  feature.  The 
printer  skips  to  the  next  page  when 
it  reaches  the  bottom  of  a  page. 
Since  SpeedScript  80  already  con- 
trols paper  feeding,  you  need  to 
turn  off  this  automatic  skip-over- 
perforation  feature  before  running 
SpeedScript  80,  or  paging  won't 
work  properly. 

To  begin  printing,  press  Con- 
trol-P.  If  your  printer  is  attached, 
powered  on,  and  selected  (online). 
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Modifying  An  Existing 
Copy  Of  SpeedScript  3.0 


If  you  already  have  a  copy  of  Speed- 
Script  5.0 — typed  in  from  the  June 
1985  issue  of  COMPUTE!  or  from 
the  book  SpeedScript:  The  Word  Pro- 
cessor for  Apple  Personal  Comput- 
ers— you  don't  have  to  type  in  the 
listing  for  SpeedScript  80.  Instead, 
you  can  modify,  or  patch,  Speed- 
Script  3.0.  The  result,  SpeedScript  80, 
is  no  larger  than  your  original  copy 
and  maintains  full  command  and 
file  compatibility.  It  doesn't  even 
matter  if  you  have  a  DOS  3.3  or 
ProDOS  version  of  SpeedScript 
3.0 — methods  for  patching  both  are 
given  here. 

Bug  Fixes 

Before  you  begin  to  patch  Speed- 
Script  3.0,  though,  you  must  make 
some  slight  corrections  to  the  pro- 
gram. As  originally  published  in 
both  the  magazine  and  book  forms, 
SpeedScript  3.0  has  two  bugs:  an 
underline  bug,  which  prints  gar- 
bage characters  whenever  the  un- 
derline toggle  (Control-V,  U)  is 
used;  and  the  header  bug,  which 
shifts  the  first  header  on  a  page  to 
the  right  of  its  proper  position. 
These  corrections  originally  ap- 
peared in  the  article  "SpeedScript 
3.0  Revisited"  in  the  December 
1985  issue  and  in  the  "CAPUTE!" 
column  in  the  March  1986  issue.  If 
you  have  already  made  these  corec- 
tions  to  your  copy  of  SpeedScript 
3.0,  skip  ahead  to  the  section  enti- 
tled "The  Patch." 

The  following  corrections  ap- 
ply only  to  the  DOS  3.3  version  of 
SpeedScript.  To  create  a  corrected 
ProDOS  version,  you  must  correct 
the  DOS  3.3  version,  then  follow 
the  directions  in  the  section  "Pro- 
DOS  Modifications"  to  turn  this 
into  a  ProDOS  version. 

The  following  program  frag- 
ments should  be  typed  in  with  Ap- 
ple MLX.  Before  you  load  Apple 
MLX,  you  must  reconfigure  memo- 
ry with  the  following  POKEs.  These 
POKEs  prevent  memory  conflicts 
between  MLX  and  SpeedScript. 


POKE  104,32;POKE  8192,0:NEW 

These  are  the  same  POKEs 
used  to  type  in  SpeedScript  with 
Apple  MLX,  and  must  be  used  ev- 
ery time  you  wish  to  edit  Speed- 
Script  with  Apple  MLX. 

After  typing  these  POKEs  and 
running  Apple  MLX,  enter  the 
starting  and  ending  addresses  as 
indicated: 

STARTING  ADDRESS?   0800 
ENDING  ADDRESS?        1E45 

Next,  press  L  to  select  (L)OAD 
FILE  from  the  menu,  and  give  the 
filename  of  the  original  SpeedScript 
3.0  file.  You  must  load  a  copy  of 
SpeedScript  3.0  before  making  the 
following  patches. 

To  make  the  first  correction, 
press  E  to  select  {E)NTER  DATA, 
and  enter  1C58  for  the  address. 
Type  in  these  seven  lines: 


1C58! 
1C60: 
lC6e: 
1C70: 
1078! 
1CS0: 

icas: 


D0  10 
IE  38 
D0  E0 
IE  49 
C9  63 
DD  IE 
AC  E5 


3B  AD  D7  IE 

ED  Db    IE  AS 

C9  55  D0  0A 

0>1  8D  EC  IE 

D0  11  ac  E5 

AD  DE  IE  20 

IE  D0  9C  AE 


ED  53  45 
A9  A0  68 
AD  EC 
10  Bl 
IE  AE  80 
24  ED  7A 
E6  fl9  79 


C6 
B4 


When  you've  finished  this 
block,  press  Return  on  the  next  line 
to  get  back  to  the  main  menu.  Press 
E  to  select  (E)NTER  DATA;  then 
enter  IDEO  and  type  in  this  last 
line: 

1DE0:     D4    C9    CE    C?    AE   AE    SD   6C   06 

Press  Return  on  the  next  line; 
then  press  S,  for  {S)AVE  DATA,  to 
save  your  modified  copy  of  Speed- 
Script  3.0.  Now  you're  ready  to 
patch  your  corrected  version  of 
SpeedScript  to  turn  it  into  Speed- 
Script  80. 

The  Patch 

First,  type  in  Programs  6  and  7. 
Program  6  (SS80. MAKER)  is  a 
BASIC  program  and  is  easily  en- 
tered using  Apple  Automatic  Proof- 
reader.  As  listed,  though, 
SS80. MAKER  works  only  with 
DOS  3.3. 

Note:  Take  a  look  at  line  100  of 


Program  6.  Change  the  statement  Fl$ 
=  "SPEEDSCRIPT"  to  reflect  the 
filename  you  used  for  SpeedScript 
3.0  (or  change  the  disk  filename  to 
match  what's  in  SS80.MAKER). 

If  you're  using  ProDOS,  re- 
place lines  100-110  with  the 
following: 

100  Fl«  "  "SS. SYSTEM"  :  F2*  -  " 

SSB0. SYSTEM" 
103  FA$  1=  ",A$2000"  :  FL*  =  ",L 

«1CBF"  :  FT*  -  ",TSYS" 
110  Bl  -  B242  :  B2  =  4096 

These  lines  inform  SS.MAKER  of 
the  source  and  destination  files  be- 
ing used,  as  well  as  their  load  and 
program  start  addresses. 

ProDOS  users  also  need  to  add 
the  following  three  lines  to  Pro- 
gram 6: 

555  PRINT  D«! "CREATE  ";FZ»;FT* 
2200  DATA  6964,1,185,20 
2210  DATA  -1,3038 

Line  555  contains  a  ProDOS  com- 
mand which  must  be  executed 
before  saving  the  new  file.  Line 
2200  prevents  a  call  to  a  routine 
which  would  reset  the  video  output 
to  40  columns  before  printing  a 
ProDOS  error  message. 

Before  you  run  Program  6,  you 
must  enter  the  data  from  Program  7 
(PATCH.80).  This  data  must  be  en- 
tered using  MLX.  Load  and  run  Ap- 
ple MLX;  then  respond  to  the 
prompts  as  indicated: 

STARTING  ADDRESS?   2000 
ENDING  ADDRESS?        2171 

When  you  see  the  menu,  press  E  to 
enter  data;  then  enter  2000  as  the 
address  to  begin  typing.  When 
you've  finished  (it  shouldn't  take 
you  long— PATCH.80  is  short),  use 
the  S  command  to  save  the  file.  It's 
important  that  you  name  the  file 
PATCH.80,  since  that's  what  the 
SS80.MAKER  program  expects  to  find. 

Ready  To  Convert 

You're  ready  to  begin  the  conver- 
sion process.  First,  though,  make 
sure  that  your  disk  contains  the 
necessary  files, 
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For  DOS  3.3,  the  files  are 

SPEEDSCRIPT        The  corrected  version 

of  SpeedScript  3.0 
SS80.MAKER  Program  6 

PATCH.80  The  binary  file  data 

from  Program  7 

For  ProDOS,  the  files  are 

PRODOS  The  ProDOS  operating 

system 

BASIC.SYSTEM      The  ProDOS  BASIC 
interface 

SS.SYSTEM  The  corrected  ProDOS 

version  of  SpeedScript 
3.0 

SS80.MAKER  Program  6  with  Pro- 

DOS  modifications 

PATCH.80  The  binary  file  data 

from  Program  7 

Before  running  SS80.MAKER 
to  convert  a  DOS  3.3  version  of 
SpeedScript  3.0,  type  this  line  in  di- 
rect mode  (without  a  line  number): 
POKE  104,48;  POKE  12288,0:  NEW 

This  prevents  SpeedScript  3.0 
from  overwriting  SS 80. MAKER  as 
it's  loaded  into  memory. 

Now,  for  both  versions,  type 
RUN  SS80.MAKER.  As  it's  per- 
forming the  conversion,  you'll  see  a 
series  of  progress  messages.  If  any 
of  the  DATA  statements  were  en- 
tered incorrectly,  the  message 
ERROR  IN  DATA  STATEMENTS  ap- 
pears. If  this  happens,  correct  the 
appropriate  line,  save  the  program 
again,  and  start  over. 


When  you're  prompted  to  in- 
sert a  disk  to  receive  the  new  file, 
simply  hit  Return  or  insert  a  new 
disk  in  the  drive  before  doing  so, 
(It's  a  good  idea  to  use  the  same 
disk  the  first  time  through  the 
procedure.) 

Your  80-column  version  of 
SpeedScript  is  now  ready  to  use.  For 
the  DOS  3.3  version,  type  BRUN 
SPEEDSCRIPT80.  For  the  ProDOS 
version,  type  -SS80.SYSTEM. 
After  you're  satisfied  that  every- 
thing works  as  it  should,  you'U 
probably  want  to  copy  the  new  ver- 
sion to  another  disk.  For  ProDOS, 
the  disk  with  SS.SYSTEM  should 
contain  the  PRODOS  file,  but  not 
the  BASIC.SYSTEM  file. 

Changes  From  3.0 

If  you've  used  SpeedScript  3.0,  you 
know  all  there  is  to  know  about 
SpeedScript  80.  No  new  functions  or 
features  have  been  added.  How- 
ever, there  are  a  few  purely  cosmet- 
ic changes  that  you  should  be 
aware  of. 

First,  printer  format  variables 
now  appear  on  the  screen  in  reverse 
video,  not  as  flashing  characters. 
The  reason  for  this  is  that  the  Apple 
cannot  display  flashing  characters 
in  80-column  mode.  Instead,  the  He 
displays  that  part  of  its  character  set 


as  reverse  characters.  The  En- 
hanced He,  the  lie,  and  the  IIGS 
have  special  graphics  characters 
known  as  MouseText  in  part  of  that 
area  of  the  character  set.  Since  that 
would  have  resulted  in  an  odd- 
looking  display,  the  original  RE- 
FRESH routine  was  modified  to 
display  all  format  codes  as  reverse 
video.  Internally,  though,  the  codes 
remain  unchanged,  maintaining  file 
compatibility  with  the  original 
version. 

Secondly,  you  may  notice  that 
refreshing  the  screen  takes  a  bit 
longer  than  in  the  original  version, 
simply  because  the  REFRESH  rou- 
tine has  about  twice  as  much  text  to 
write  each  time  it's  called.  This  is 
really  only  noticeable  when  you 
continuously  hold  down  a  key 
(using  auto-repeat)  such  as  the 
right-  or  left-arrow  key.  Use  the 
program's  advanced  cursor  com- 
mands to  avoid  this. 

To  gain  a  little  extra  speed  and 
improve  readability,  the  second 
line  and  the  last  two  lines  are  un- 
used. A  horizontal  line  is  also 
drawn  at  the  bottom  to  give  a  "win- 
dow" effect. 


SpeedScript  80  begins  printing  im- 
mediately. To  cancel  printing,  press 
Control  and  the  Reset  key. 

If  you  need  to  print  to  an  RS- 
232  printer  or  to  a  printer  in  a  slot 
other  than  slot  1,  press  OpAp-Con- 
trol-P.  This  brings  up  the  prompt 
PRINT  TO:  SCREEN,  PRINTER? 
Press  S  to  print  to  the  screen.  Speed- 
Script  80  automatically  prints  to  the 
screen,  simulating  the  printer. 

If  you  select  P,  you'll  be  asked 
for  the  slot  number.  Output  is  sent 
to  the  slot  number  you  select.  It's 
similar  to  PR#  in  BASIC,  If  you 
print  to  slot  6  (the  disk  drive),  you'll 
cause  the  system  to  reboot,  so  be 
careful. 

Formatting  Commands 

The  print  formatting  commands  are 
single  letters  embedded  in  text, 
such  as  L  for  left  margin.  To  enter  a 
formatting  variable,  press  Control- 
V,  You'll  see  the  prompt  ENTER 
FORMAT  VARIABLE:.  Now  press 
any  key.  The  print  formatting  com- 


mands must  be  distinguished  from 
normal  text,  so  they  appear  on- 
screen in  reverse  video.  All  lettered 
printer  commands  should  be  en- 
tered without  the  Shift  key.  During 
printing,  SpeedScript  80  treats  these 
characters  as  printing  commands. 

There  are  two  kinds  of  printing 
commands — Stage  1  and  Stage  2. 
Stage  1  commands  usually  control 
such  variables  as  left  and  right  mar- 
gins. Most  are  followed  by  a  num- 
ber, with  no  space  between  the 
command  and  the  number.  Stage  1 
commands  are  executed  before  a 
line  is  printed. 

Stage  2  commands,  like  center- 
ing and  underlining,  are  executed 
while  the  line  is  being  printed. 
Usually,  Stage  1  commands  must 
be  on  a  line  of  their  own,  although 
you  can  group  several  Stage  1  com- 
mands together  on  a  line.  Stage  2 
commands  are  by  nature  embedded 
within  a  line  of  text.  Again,  remem- 
ber to  press  Control-V  to  enter  the 
boldface  characters  shown  below. 


Stage  T  Commands 

L  Left  margin.  Follow  with  a 
number  from  0  to  255.  Use  0  for  no 
margin.  Defaults  to  5. 

R  Right  margin  position,  a 
number  from  1  to  255.  Defaults  to 
75.  Be  sure  the  right  margin  value  is 
greater  than  the  left  margin  value, 
or  SpeedScript  80  will  behave 
unpredictably. 

T  Top  margin.  The  position  at 
which  the  first  line  of  text  is  printed, 
relative  to  the  top  of  the  page.  De- 
faults to  5.  The  header  (if  any)  is 
always  printed  on  the  first  line  of 
the  page,  before  the  first  line  of  text. 

B  Bottom  margin.  The  line  at 
which  printing  stops  before  con- 
tinuing to  the  next  page.  Standard 
8V2  X  11-inch  paper  has  66  lines. 
Bottom  margin  defaults  to  line  58. 
Don't  make  the  bottom  margin 
greater  than  the  page  length. 

P  Page  length.  Defaults  to  66. 
If  your  printer  does  not  print  six 
lines  per  inch,  multiply  lines-per- 
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NRI  Trains  You  At  Home— As  You  Build 
Your  Own  IBM  PC  Compatible  Computer 


GET  THE  KNOW^OW 
TO  SERVICE  EVERY 
COMPUTER  ON  THIS 
PAGE... 


Learn  the  Basics  the  NRI  Way- 

and  Earn  Good  Money  Troubleshooting 

Any  Brand  of  Computer 

The  biggest  growth  in  jobs  between  now  and  1995, 
according  to  Department  of  Labor  estimates,  will 
occur  in  the  computer  service  and  repair  business, 
where  demand  for  trained  technicians  will  actually 
double. 

You  can  cash  in  on  this  opportunity— either  as  a 
full-time  corporate  technician  or  an  independent 
service-person— once  you've  learned  all  the  basics  of 
computers  the  NRI  way.  NRI's  practical  combination 
of  "reason-why"  theory  and  "hands-on"  building  skills 
starts  you  with  the  hjndamentals  of  electronics,  then 
guides  you  through  advanced  electronic  circuitry 
and  on  into  computer  electronics.  You  also  learn  to 
program  in  BASIC  and  machine  language,  the 
essential  languages  for  troubleshooting  and  repair. 

Total  Computer  Systems  Tk-alning, 
Only  From  NRI 

No  computer  stands  alone . . .  it's  part  of  a  total 
system.  To  really  service  computers,  you  have  to 
understand  computer  systems.  And  only  NRI  includes 
a  powerful  computer  system  as  part  of  your  training, 
centered  around  the  new,  fully  IBM  PC  compatible 
Sanyo  880  Series  computer. 


I 


C^ 


A 


IBM  Is  a  Roglstired  TraOamait  of  IBM  Corporitton. 
Epson  Is  a  RegislerMi  Tradamaric  of  Epson  America.  Inc. 
Apple  and  Ills  Appla  lojo  arc  Raglstgnxj  Tradcmorts  o(  Apple 
CompLler.  Inc. 
Compaq  Is  a  Re^lslored  Trademark  of  COMPAQ  ComputSf  Cofporatlon 
glMS  ATST  TechnologlM,  Inc. 


You  start  with 
the  step-by-step 

assembly  of  the  new,  highly-rated,  Sanyo 
computer.  You  install  and  trouble- 
shoot  the  "intelligent"  key- 
board. Then  you  assemble  the 
power  supply,  install  the  disk 
drive,  and  add  extra  memory  to 
give  you  a  powerful  256K  RAM  system. 
The  new  880  computer  has  two  operating  speeds: 
standard  IBM  speed  of  4.77  MHz  and  a  remarkable 
turbo  speed  of  8  MHz,  making  it  almost  twice  as 
fast  as  the  IBM  PC.  Next,  you'll  interface  the  high- 
resolution  monitor  and  begin  to  use  the  valuable  software 
also  included  with  your  complete  computer  system. 
It  all  adds  up  to  confidence-building,  real-world 
experience  that  includes  training  in  programming,  circuit 
design,  and  peripheral  maintenance.  You'll  be  learning 
about,  working  with,  servicing,  and  troubleshooting  an 
entire  computer  system— monitor,  keyboard,  computer, 

disk  drive,  power 


Your  NRI  total  systems  training  Includes: 
•  NRI  Discovery  l^b'  to  design  and  modlly 
circuits  •  Your  four-function,  digital 
multimeter  with  waik-you-throuqtt 
instructions  on  audio  lape  ■  Digital  logic 
protie fof  visual  examination  ol  keytmard 
ciffiuits  ■  Ttie  newest  Sanyo  860  Series 
Computer  Willi  "intelligent"  keytxiard  and 
360K  double-density,  rkiuble-sided  dish 
drive  •  Higti  resolution  monochrome 
monltof  •  8K  ROM,  256K  R  AM  ■  Bundted 
software  Including  GW  BASIC.  MS-(XDS, 
WordStar.  CalcStar-  Reference  manuats, 
schematics,  and  bite-sLze  lessofis. 


supply— to  ensure  that  you  have 
all  the  essential  skills  you  need 
to  succeed  as  a  professional 
computer  service  technician. 

No  Experience  Needed, 
NRI  Builds  It  In 

This  is  the  kind  of  practical, 
hands-on  experience  that  makes  you  uniquely  prepared,  with 
the  skills  and  confidence  you  need  for  success.  You  learn  at  your 
own  convenience  in  your  own  home.  No  classroom  pressures, 
no  night  school,  no  need  to  quit  your  present  job  until  you're 
ready  to  make  your  move.  Your  training  is  backed  by  your 
personal  NRI  instructor  and  the  NRI  technical  staff,  ready  to 
answer  your  questions  and  help  you  when  you  need  it.  You  get 
it  all  with  NRI  at-home  training. 

lOO-Poge  Free  Catalog  Tells  More 

Send  the  postage-paid  reply  card  today  for  NRl's  big, 
100-page,  color  catalog  on  NRI's  electronics  training,  which 
gives  you  all  the  facts  about  NRI  courses  in  Microcomputers, 
Robotics,  Data  Communications,  TV/ Audio/Video  Servicing, 
and  other  growing,  high-tech  career  fields.  If  the  reply  card  is 
missing,  write  to  the  address  below. 


SEND  COUPON  TODAY  FOR  FREE  NRI  CATALOG! 


SCHOOLS 

McGraw-Hill  Coniinuing  Education  Center 

3939  Wisconsin  Avenue,  NW,  Wastiington,  DC  20016 

We'll  give  you  lomonavi, 

[E'check  one  free  catalog  only 

LJ  Computer  Eleolronii;s 

Q  TV/Audio/Video  Servicing 

13  Satellile  Electronics 

n  Robot icsS  Industrial  Control 

G  Industrial  Electronics 

□  Telephone  Servicing 

n  Digital  Electronics  Servicing 


Fcr  Career  courses 
approved  uniter  G3  Biit 
n  ctieck  lor  flBtails 


G  Basic  Electronics 

G  Electricians 

G  Small  Engine  Repair 

D  Air  Conditioning,  Heating,  &Ref. 

D  Locksmi thing  &  Eloclronsc  Security 

D  Photography 

n  Bookl<eepin9  &  Accounting 


Name  (Please  print! 
Street 


City'STaleiZip 


AccreiJiie<3  by  the  National  Horrie  Study  Council 
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inch  by  11  to  get  the  page  length. 
European  paper  is  usually  longer 
than  American  paper — 11%  or  12 
inches.  Try  a  page  length  of  69  or 
72, 

S  Spacing.  Defaults  to  single- 
spacing.  Follow  with  a  number 
from  1  to  255.  Use  1  for  single- 
spacing,  2  for  double-spacing,  and 
3  for  triple-spacing. 

@  Start  numbering  at  page 
number  given.  Page  numbering 
normally  starts  with  1. 

?  Disables  printing  until  select- 
ed page  number  is  reached.  For  ex- 
ample, a  value  of  3  would  start 
printing  the  third  page  of  your  doc- 
ument. Normally,  SpeedScript  80 
starts  printing  with  the  first  page. 

X  Sets  the  page  width  in  col- 
umns (think  a  cross).  Defaults  to  80. 
You  need  to  change  this  for  the  sake 
of  the  centering  command  if  you're 
printing  in  double  width  or  con- 
densed type,  or  if  you're  using  a  40- 
column  or  wide-carriage  printer. 

N  Forced  paging.  Normally, 
SpeedScript  80  prints  the  footer  and 
moves  on  to  the  next  page  only 
when  it  has  finished  a  page,  but  you 
can  force  it  to  continue  to  the  next 
page  by  issuing  this  command.  It 
requires  no  numbers. 

M  Margin  release.  Disables  the 
left  margin  for  the  next  printed  line. 
Remember  that  this  executes  before 
the  line  is  printed, 

W  Page  wait.  This  command 
should  be  placed  at  the  beginning 
of  your  document  before  any  text. 
With  page  wait  turned  on,  Speed- 
Script  80  prompts  you  to  INSERT 
NEXT  SHEET,  PRESS  RETURN 
when  each  page  has  been  printed. 
Insert  the  next  sheet,  line  it  up  with 
the  printhead,  and  then  press  RE- 
TURN to  continue.  Page  wait  is 
ignored  during  disk  or  screen  output. 

J  Causes  SpeedScript  80  to  auto- 
matically add  a  linefeed  character 
after  each  carriage  return  sent  to  the 
printer.  Like  W,  this  command 
must  be  placed  before  any  text.  Use 
this  command  only  if  your  printer 
puts  all  text  on  the  same  line  when 
you  try  to  print  your  document. 
(Don't  use  this  command  to  achieve 
double-spacing.) 

I  Information.  This  works  like 
REM  in  BASIC.  You  follow  the 
command  with  a  line  of  text,  up  to 
255  characters,  ending  in  a  return 


mark.  This  line  will  be  ignored  dur- 
ing printing  and  is  handy  for  mak- 
ing notes  to  yourself  (such  as  the 
filename  of  the  document). 

H  Header  define  and  enable. 
The  header  must  be  a  single  line  of 
text  (up  to  254  characters)  ending  in 
a  return  mark.  The  header  prints  on 
the  first  line  of  each  page.  You  can 
include  Stage  2  commands  such  as 
centering  and  page  numbering  in  a 
header.  You  can  use  a  header  by 
itself  without  a  footer.  The  header 
and  footer  should  be  defined  at  the 
top  of  your  document,  before  any 
text.  If  you  want  to  prevent  the 
header  from  printing  on  the  first 
page,  put  a  return  mark  by  itself  at 
the  top  of  your  document  before 
the  header  definition. 

F  Footer  define  and  enable. 
The  footer  must  be  a  single  line  of 
text  (up  to  254  characters)  ending  in 
a  return  mark.  The  footer  prints  two 
lines  prior  to  the  last  line  of  each 
page.  As  with  the  header,  you  can 
include  Stage  2  printing  com- 
mands, and  you  don't  need  to  set 
the  header  to  use  a  footer. 

G  Go  to  (link)  next  file.  Put  this 
command  as  the  last  line  in  your 
document.  Follow  the  command 
with  the  filename  (with  no  spaces 
between  the  G  and  the  filename), 
including  the  drive  number  prefix  1; 
or  2:  if  appropriate.  After  the  text  in 
memory  is  printed,  the  link  com- 
mand loads  the  next  file  into  mem- 
ory. You  can  continue  linking 
successive  files,  but  don't  include  a 
link  in  the  last  file.  Before  you  start 
printing  a  linked  file,  make  sure  the 
first  of  the  linked  files  is  in  memory. 
When  printing  is  finished,  the  last 
file  linked  to  will  be  in  memory. 

Stage  2  Commands 

These  commands  either  precede  a 
line  of  text  or  are  embedded  within 
one. 

C  Centering,  Put  this  at  the 
beginning  of  a  line  you  want  to 
center.  This  centers  only  one  line 
ending  in  a  return  mark.  Repeat  this 
command  at  the  beginning  of  every 
line  you  want  centered.  Centering 
uses  the  page-width  setting  (see 
above)  to  center  the  line  properly. 
To  center  a  double-width  line, 
either  set  the  page  width  to  40  or 
pad  out  the  rest  of  the  line  with  an 
equal  number  of  spaces.  If  you  use 
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double  width,  remember  that  the 
spaces  preceding  the  centered  text 
will  be  double-wide  spaces. 

E  Edge  right.  This  works  in  the 
same  way  as  centering,  but  it  blocks 
the  line  flush  with  the  right  margin. 

#  When  SpeedScript  80  en- 
counters this  command,  it  prints 
the  current  page  number.  You 
usually  embed  this  within  a  header 
or  footer. 

U  A  simple  form  of  underlin- 
ing. It  works  only  on  printers  that 
recognize  CHR$(8)  as  a  backspace 
and  CHR$(95)  as  an  underiine 
character.  Underlining  works  on 
spaces,  too.  Use  the  first  U  to  start 
underlining  and  another  one  to 
turn  off  underlining. 

Fonts  And  Styles 

Most  dot-matrix  printers  are  capa- 
ble of  more  than  just  printing  text  at 
10  characters  per  inch.  Some  print- 
ers have  several  character  sets,  with 
italics  and  foreign  language  charac- 
ters. Most  can  print  in  double  width 
(40  characters  per  line)  or  con- 
densed (132  characters  per  line), 
and  in  either  pica  or  elite.  Other 
features  may  include  programma- 
ble characters,  programmable  tab 
stops,  and  graphics  modes.  Many 
word  processors  customize  them- 
selves to  a  particular  printer,  but  for 
flexibility  SpeedScript  80  was  pur- 
posely designed  not  to  be  printer- 
specific.  Instead,  SpeedScript  80  lets 
you  define  your  own  Stage  2  print- 
ing commands. 

You  define  a  programmable 
printkey  by  choosing  any  character 
that  is  not  already  used  for  other 
printer  commands.  The  numbers 
0-9,  most  symbols,  and  some  al- 
phabetic characters  are  available  for 
printkeys.  You  enter  these  com- 
mands, like  printer  commands, 
with  Control-V.  The  printkeys  are 
like  variables  in  BASIC. 

To  define  a  printkey,  press 
Control-V;  then  type  the  key  you 
want  to  assign  as  the  printkey,  then 
an  equal  sign  (  =  ),  and  finally  the 
ASCII  value  to  be  substituted  for 
the  printkey  during  printing.  As  a 
result,  whenever  SpeedScript  80  en- 
counters the  printkey  embedded  in 
text,  it  prints  the  character  with  the 
ASCII  value  you  previously  de- 
fined. (If  you  have  trouble  passing 
some  printkeys  to  the  printer,  try 
adding  128  to  the  ASCII  value  you 


wish  to  send.  Otherwise,  some 
printer  interfaces  intercept  the 
printkey,) 

For  example,  to  define  the  + 
key  as  the  letter  z,  first  look  up  the 
ASCII  value  of  the  letter  z  (in  either 
your  printer  manual  or  in  the 
BASIC  manual).  The  ASCII  value  of 
z  is  122,  so  the  definition  is 

Now,  anywhere  you  want  to  print 
the  letter  z,  substitute  the  printkey: 

GadQooks!    The  Qoo  is  QanylQ 

This  will  appear  on  paper  as 
Gadzooks!   The  zoo  is  zany! 

More  practically,  here's  how 
you  could  program  italics  on  an 
Epson  MX-80-compatible  printer. 
You  switch  on  italics  by  sending  an 
ESC  (a  character  with  an  ASCII  val- 
ue of  27),  then  the  character  4.  You 
turn  off  italics  by  sending  ESC  5, 
So,  define  *  as  the  escape  code  (27). 
Anywhere  you  want  to  print  a  word 
in  italics,  bracket  it  with  *4  and  *5. 

You  can  similarly  define  what- 
ever codes  your  printer  uses  for  fea- 
tures  like  double  width  or 
emphasized  mode.  For  your 
convenience,  four  of  the  printkeys 
are  predefined,  though  you  can 
change  them.  The  keys  1-4  are  de- 
fined as  character  codes  27,  14,  15, 
and  18,  common  values  for  most 
printers.  On  most  printers, 
CHR${27)  is  the  ESC  key, 
CHR$(14)  starts  double-width 
printing,  CHR$(15)  either  stops 
double-width  or  starts  condensed 
characters,  and  CHR$(18)  usually 
cancels  condensed  characters. 

Keep  one  thing  in  mind  about 
printkeys:  SpeedScript  80  always  as- 
sumes it  is  printing  to  a  rather 
dumb,  featureless  printer,  the  least 
common  denominator.  SpeedScript 
80  doesn't  understand  the  intent  of 
a  printkey;  it  justs  sends  out  its 
value.  So  if  you  make  one  word 
within  a  line  double  width,  it  may 
make  the  line  overflow  the  speci- 
fied right  margin.  There's  no  way 
for  SpeedScript  80  to  include  built-in 
font  and  type  style  codes  without 
being  customized  for  a  particular 
printer,  since  no  set  of  codes  is  uni- 
versal to  all  printers. 


Hints  And  Tips 

It  may  take  you  a  while  to  fully 
master  SpeedScript  80,  but  as  you 
do,  you'll  discover  many  ways  to 
use  the  editing  and  formatting  com- 
mands. For  example,  there  is  a  sim- 
ple way  to  simulate  tab  "stops,  say, 
for  a  columnar  table.  Just  type  a 
period  at  every  tab  stop  position. 
Erase  the  line  with  Control-E;  then 
restore  it  with  Control-"  many 
times.  When  you're  filling  in  the 
table,  just  use  word-ieft/word-right 
to  jump  quickly  between  the  peri- 
ods. Or  you  can  use  the  program- 
mable printkeys  to  embed  your 
printer's  own  commands  for  setting 
and  jumping  to  tab  stops. 

You  don't  have  to  change  or 
define  printer  commands  every 
time  you  write.  Just  save  these  defi- 
nitions and  load  this  file  for  each 
session.  You  can  create  many  cus- 
tom definition  files  and  have  them 
ready  to  use  on  disk.  You  can  create 
customized  "fill-in-the-blank"  let- 
ters. Just  type  the  letter,  and  every- 
where you'll  need  to  insert 
something,  substitute  a  unique 
character,  such  as  an  *  or  a  Control 
character.  When  you're  ready  to 
customize  the  letter,  use  Find  to 
locate  each  symbol  and  insert  the 
specific  information.  Instead  of  typ- 
ing an  oft-used  word  or  phrase, 
substitute  a  unique  character;  then 
use  Control-Y  to  automatically 
change  these  characters  into  the  ac- 
tual word  or  phrase.  You  can  even 
use  SpeedScript  80  as  a  simple  filing 
program.  Just  type  in  all  your  data, 
flagging  each  field  with  a  unique 
character.  You  can  use  Find  to 
quickly  locate  any  field. 

Program  1:  SpeedScript  dO 


For  mistake-proof  program  emry,  use 
MLX,"  found  elsewhere  in  this  issue,  to 
tliis  program. 

fi9  B0  8D  00  03  4C  2B 
20  84  FE  20  00  C3  8D 
C0  SD  0D  C0  A0  17  20 
0A  Pif  DF  A0  50  20  ED 
88  D0  FA  4C  90  0A  00 
20  27  0A  20  9B  09  4C 


0800: 
0808: 
0810: 
0S1B: 
0820: 
0B2S: 
0830:  0B  A5  06  8D  51  08  A5 


0838:  BD  52  08  A5  19  8D  54 

0840:  AS  IB  8D  55  08  A6  F7 

0848:  20  A"?  00  SD  53  IE  A0 

0B50:  B9  FF  FF  99  FF  FF  Ca 

0858:  53  IE  D0  F4  EE  52  08 

0860:  35  08  E0  00  F0  07  CA 

0B68:  E0  AS  ID  D0  DE  60  fl5 

0870:  AA  05  ID  D0  01  60  18 

0878:  65  08  SD  99  08  A5  06 

0880:  98  08  IB  BA  65  IB  BD 

0868:  08  A5  19  80  9B  08  E8 

0B90:  ID  D0  04  F0  0D  A0  FF 
0898:  FF  FF  99  FF  FF  SB  C0 


'Apple 
type  in 

08  58 
01  56 
BC  EF 
FD  7A 
00  79 
IS  87 
08  C6 
08  AE 
F0  B0 
00  FF 
CC  35 
EE  C2 
D0  43 
F9  C0 
BA  0C 
an  F8 
9C  D9 
A4  75 
B9  97 
FF  7F 


0BA0: 

08  AS; 
0BB0: 
08BB: 
0BC0: 
08CB; 
08D0: 
0BD8: 
08E0: 
0BE8: 
0BF0: 
0aF8: 
0900: 
090B: 
0910: 
0918: 
0920: 
092B: 
0930: 
0938: 
0940: 
0948: 
0950: 
0958: 
0960: 
0968: 
0970: 
0978: 
0980: 
0988: 
0990: 
099B: 

09  A0: 
09A8: 
09B0: 
09B8: 
09C0: 
09CB: 
0900: 
0908: 
09E0: 
09E8: 
09F0: 
09FB1 
0A00: 
0A0e: 
0A10: 
0Aie: 
0A20: 
0A2S: 
0A30: 
0A3a: 
0A40: 
0A4B: 
0A50: 
0ASa: 
0A60: 
0A68: 
0A70: 
0A78: 
0AB0: 
0ASB: 
0A90: 
0A9e: 
0AA0! 
0AA3: 
0AB0: 
0ABB: 
0AC0: 
0ACB: 
0AD0: 
0AD8: 
0AE0: 
0AEe: 
0AF0: 
0AF8! 
0B00: 
0B08: 
0B10: 
0818: 
0B20: 
0B28: 
0B30: 
0838: 
0B40: 


D0  F5 
CA  D0 
14  AD 
S0  IE 
B9  FF 
C9  3C 
88  B9 
29  3F 
FB  A0 
FE  98 
48  38 
88  84 
20  97 
C0  20 
18  98 
AD  C2 
E0  02 
50  F0 
00  85 
85  FD 

20  B0 
06  8D 
61  14 
BE  08 
AD  C2 
C0  60 
06  06 
06  06 
06  06 
80  00 
A8  28 
D0  50 
BD  4F 
AD  47 
SD  S6 
IE  ED 
FF  C6 
91  EB 
D0  F6 
EE  20 
F0  06 
60  20 
90  02 
10  2C 

21  2C 
AD  61 
C0  10 
10  C0 
A5  E3 
60  20 
IE  80 
4A  IE 
8D  19 
80  D5 
A9  22 
ft9  90 
4B  IE 
FF  80 
A0  BD 
03  49 
as  FF 
IC  20 
20  A6 
D5  09 
20  82 
0A  20 
F9  20 
00  60 
05  84 
ED  7B 
85  IF 
F0  0B 
A9  B0 
EC  0A 
08  A0 
12  20 
F8  CA 
12  20 
F8  CA 
AD  45 
00  SD 
2F  0B 
CC  0A 
8A  4B 
C9  FF 


CE  99 
EA  60 
4F  IE 
20  7E 
FF  CB 
F0  18 
FF  FF 
C9  20 

4F  ce 

4A  B0 
E9  01 
FD  CB 
14  68 
97  14 
60  CI 
08  69 
00  03 
24  98 
FD  3B 
A8  A9 
14  A4 
55  C0 
ES  E0 
AD  Cl 
08  BD 
00  00 
07  07 
07  07 

07  07 
80  28 
AS  50 
D0  AD 
IE  8D 
IE  85 
IE  85 
47  IE 
EC  91 

ce  00 

91  EB 
80  FE 
20  ED 
F5  09 
29  DF 
AD  00 
00  03 
C0  0D 

08  AS 
60  A9 
80  10 
84  FE 
46  IE 
80  4C 
IF  EA 
A6  A9 
18  69 
BD  49. 
A9  99 
EE  IE 
F2  03 
A5  BD 
20  08 
DS  09 
0A  A9 
A9  00 
0A  4C 
80  FE 
84  FE 
A0  00 
25  4C 
05  60 
A0  00 
29  3F 
4C  EC 
A9  81 
00  A5 
F5  09 
00  F5 
F5  09 
00  FS 
IE  30 
44  IE 
A9  00 
AA  AD 
20  90 
D0  06 


08  CE 
A2  01 
20  74 
14  E8 
C9  82 
C0  50 
C9  80 
F0  05 
04  ED 
0B  B4 
10  07 
48  80 
A4  FD 
A6  FE 
08  20 
00  20 
8C  4E 
4A  90 
E9  01 
A0  BD 
FD  C0 
20  B0 
16  F0 
08  80 
SA  IE 
00  04 
04  04 
04  04 
80  00 
AB  28 
00  50 
46  IE 
55  IE 
EC  80 
FC  38 
AA  A9 
EB  C8 
FB  E6 
60  85 
A0  00 
FO  C8 
F0  FB 
60  2C 
C0  C9 
30  IC 
44  IE 
E3  09 

00  80 
C0  60 
A9  00 
80  48 
IE  BD 
EA  EA 

01  20 
01  80 
IE  A9 
8D  4D 
20  78 
A9  0A 
F4  03 
0B  A9 
EE  51 
Cl  A0 
80  51 
IB  0B 
A2  S0 
4C  BA 
A2  00 
22  FC 
A0  00 
A5  IF 
C9  20 
0A  A9 
91  FB 
IF  91 
00  19 
20  AC 
00  09 
4C  D2 
12  D0 
CE  43 
BD  45 
51  IE 
0A  68 
20  5A 


9C  08  C6 
20  61  70 
14  AD  AA 
A0  00  E9 
F0  IC  90 
00  F0  46 
F0  0B  D0 
88  00  06 
88  86  7B 
FD  88  EI 
30  0B  BS 
54  C0  9C 
80  55  9E 
A4  ED  IF 
74  14  DB 
7E  14  DA 
IE  C0  08 

09  69  BC 

10  02  SC 
54  C0  E0 
28  F0  BF 
14  20  83 
03  4C  0A 
59  IE  E4 
80  54  8E 
05  05  12 
05  05  97 
05  05  9F 
80  00  60 
AS  28  CC 
00  50  04 
35  EB  BD 
85  FB  14 
50  IE  DB 
AD  49  AB 
A0  A0  FD 
E6  EC  78 
EC  CA  E4 
ED  84  73 
Bl  ED  C0 
D0  F6  7B 
C9  C0  4E 

00  C0  63 
C0  90  13 
85  E3  C0 
40  63  CC 
20  BD  F4 
44  IE  E7 
A9  00  BD 
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03  F0  2A  38  AD  DO  IE  EO  0E 

1AF0: 

FF 

BD 

EE 

IE 

A0 

01 

A2 

15Ae: 

IE  90  10  20  A6  0A  A9  99  54 

1B50: 

DF  IE  AD  OE  IE  ED  E0  IE  24 

1AF8! 

AO 

F0 

IE 

F0 

50 

BD 

Fl 

IE  BE 
EE  20 

1560: 

A0  ID  20  05  09  fl9  01  80  52 

laSB: 

90  IB  A9  00  20  B9  14  20  FC 

1B00: 

Dl 

EB 

F0 

05 

E0 

00 

00 

15B8! 

51  IE  60  20  6E  08  IB  AD  92 

1860: 

A6  0A  A9  EB  A0  ID  20  05  B9 

iBaa: 

CA 

C8 

D0 

0B 

E6 

EC 

A5 

EC  C3 

15C0: 

CC  IE  85  ID  60  53  IE  8D  E5 

1868: 

09  20  E9  09  20  76  16  AD  A7 

1B10: 

CO 

56 

IE 

F0 

02 

B0 

36 

EB  BD 
65  CF 

15C8: 

55  IE  AO  CD  IE  85  F9  60  20 

1870: 

EA  IE  20  95  FE  AD  D4  IE  71 

1B18: 

EC 

F0 

IE 

D0 

E0 

18 

98 

15D0: 

56  IE  80  56  IE  A5  FB  85  C9 

1B78: 

F0  11  8D  53  IE  A9  C2  85  EE 

1B20: 

EB 

85 

ED 

A5 

EC 

69 

00 

85  58 

1508: 

19  A5  FC  85  IB  AD  4A  IE  33 

18B0: 

06  A9  20  85  D7  20  A5  IS  85 

1B2B! 

EE 

AD 

55 

IE 

C5 

ED 

AD 

56  65 

15e0: 

85  06  AO  48  IE  85  08  20  F0 

1888: 

20  05  IC  A9  8D  20  52  16  CF 

1B30: 

IE 

E5 

EE 

90 

18 

3fl 

A5 

EO  B0 
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lB3e: 

EO 

F0 

IE 

85 

FB 

8D 

ED 

IE 

CD 

1B40: 

AS 

EE 

E9 

00 

85 

FC 

BD 

EE 

6C 

1646: 

IE 

20 

IF 

0C 

60 

20 

A6 

0A 

15 

1B50: 

A9 

0E 

A0 

IE 

20 

D5 

09 

A9 

EB 

IBSe: 

01 

BD 

51 

IE 

60 

AD 

61 

C0 

BB 

1B60: 

0D 

44 

IE 

4D 

63 

C0 

30 

23 

6S 

1868: 

20 

A6 

0A 

A9 

18 

A0 

IE 

20 

D3 

1B70: 

D5 

09 

20 

71 

12 

8D 

19 

IF 

07 

1B78: 

F0 

0E 

A0 

00 

B9 

83 

IE 

99 

70 

lBa0: 

lA 

IF 

C8 

CC 

58 

IE 

D0 

F4 

43 

IBSS: 

4C 

90 

0A 

38 

A5 

FB 

85 

19 

0F 

1B90: 

ED 

ED 

IE 

85 

ED 

AS 

FC 

85 

DA 

1B98: 

IB 

ED 

EE 

IE 

05 

ED 

D0 

62 

7B 

1BA0: 

A9 

FF 

8D 

EE 

IE 

18 

AD 

F0 

E9 

1BA8: 

IE 

65 

FB 

85 

06 

A9 

00 

65 

5B 

1BB0: 

FC 

85 

08 

38 

AD 

55 

IE 

E5 

30 

IBBS: 

19 

85 

ID 

AD 

S6 

IE 

E5 

IB 

6D 

1BC0: 

85 

F9 

20 

31 

08 

38 

AD 

55 

21 

tBCQ: 

IE 

ED 

F0 

IE 

SD 

55 

IE 

AD 

35 

1BD0: 

56 

IE 

E9 

00 

SD 

56 

IE 

AD 

A6 

IBDS: 

19 

IF 

F0 

26 

SD 

ES 

IE 

A9 

D9 

1BE0: 

00 

8D 

E9 

IE 

20 

D4 

10 

M 

AE 

1BE8: 

00 

B9 

lA 

IF 

91 

FB 

ca 

CC 

9D 

IBF0: 

19 

IF 

D0 

F5 

18 

A5 

FB 

6D 

Bl 

IBFB: 

19 

IF 

85 

FB 

A5 

FC 

69 

00 

E7 

1C00: 

QS 

FC 

4C 

IF 

0C 

A0 

00 

CC 

65 

1C0B: 

53 

IE 

F0 

21 

Bl 

D6 

30 

04 

EE 

1C10: 

C9 

40 

B0 

lA 

20 

2F 

16 

20 

FE 

ICIS: 

52 

16 

AD 

EC 

IE 

F0 

0A 

A9 

F5 

1C20: 

88 

20 

52 

16 

A9 

DF 

20 

52 

AF 

1C2B; 

16 

ce 

4C 

07 

IC 

60 

8C 

E5 

FB 

1C30: 

IE 

SD 

E6 

IE 

20 

2F 

16 

C9 

4D 

1C38: 

43 

D0 

IB 

38 

AD 

El 

IE 

ED 

4C 

1C40: 

53 

IE 

4A 

38 

ED 

D6 

IE 

AS 

26 

1C48: 

A9 

A0 

20 

52 

16 

88 

D0 

FA 

16 

1C50: 

AC 

E5 

IE 

4C 

29 

IC 

C9 

45 

73 

1C38: 

D0 

10 

38 

AD 

D7 

IE 

ED 

53 

4S 

1C:60: 

IE 

3B 

ED 

D6 

IE 

AS 

A9 

A0 

6B 

1C68: 

D0 

E0 

C9 

55 

D0 

0A 

AD 

EC 

C6 

1C70: 

IE 

49 

01 

8D 

EC 

IE 

10 

Bl 

B4 

1C7B: 

C9 

63 

D0 

11 

8C 

E5 

IE 

AE 

80 

1CB0: 

DD 

IE 

AD 

DE 

IE 

20 

24 

ED 

7A 

1CS8: 

AC 

E5 

IE 

D0 

9C 

AE 

E6 

IE 

EC 

1C90: 

BD 

42 

IF 

20 

52 

16 

4C 

29 

CA 

1C98: 

IC 

20 

A6 

0A 

38 

AD 

48 

IE 

83 

lCft0: 

ED 

55 

IE 

AA 

AD 

49 

IE 

ED 

50 

1CA8: 

56 

IE 

20 

24 

ED 

A9 

01 

BD 

7F 

1CB0: 

51 

IE 

60 

AD 

44 

IE 

49 

80 

AD 

1CB8: 

SD 

44 

IE 

A9 

01 

8D 

45 

IE 

0E 

1CC0: 

60 

D3 

D0 

CS 

CS 

C4 

D3 

C3 

41 

icce: 

D2 

C9 

D0 

D4 

A0 

B3 

AE 

B0 

26 

1CD0: 

00 

88 

8B 

88 

BB 

A0 

C2 

D9 

EA 

ICDB: 

A0 

C3 

AE 

A0 

C2 

DZ 

CI 

CE 

E5 

1CE0: 

CE 

CF 

CE 

A0 

A6 

A0 

CB 

AE 

56 

ICEG: 

A0 

CD 

CI 

D2 

D4 

C9 

CE 

00 

B5 

1CF0: 

C2 

D5 

C6 

C6 

C5 

D2 

A0 

CE 

CE 

1CF8: 

D5 

CC 

CC 

C5 

C4 

00 

C2 

D5 

C6 

1D00: 

C6 

C6 

C5 

D2 

A0 

C6 

D5 

CC 

CD 

1008: 

CC 

00 

C4 

C5 

CC 

C5 

D4 

C5 

BA 

1D10: 

A0 

AB 

D3 

AC 

D7 

AC 

D0 

A9 

C6 

IDlBi 

00 

BA 

A0 

CI 

D2 

C5 

A0 

D9 

F9 

1D20: 

CF 

D5 

A0 

D3 

D5 

D2 

C5 

BF 

4E 

1D28: 

A0 

AB 

D9 

AF 

CE 

A9 

BA 

00 

A5 

1D30: 

C5 

D2 

CI 

D3 

C5 

A0 

CI 

CC 

78 

1D38! 

CC 

A0 

D4 

C5 

DB 

D4 

00 

C5 

D7 

1D40: 

D2 

Ci 

D3 

C5 

A0 

Aa 

D3 

AC 

27 

1D48: 

D7 

AC 

D0 

AC 

CI 

A9 

BA 

A0 

49 

1D50: 

D2 

C5 

D4 

D5 

D2 

CE 

A0 

D4 

45 

IDSB: 

CF 

A0 

C5 

DB 

C9 

D4 

00 

C5 

50 

1D60: 

CE 

D4 

C5 

D2 

A0 

C6 

CF 

D2 

AF 

1D&8: 

CD 

CI 

D4 

A0 

D6 

CI 

D2 

C9 

CB 

1D70: 

CI 

C2 

CC 

C5 

BA 

00 

D3 

CI 

71 

1D7B: 

D6 

C5 

BA 

00 

CE 

CF 

A0 

C5 

A3 

1DS0: 

D2 

D2 

CF 

D2 

D3 

00 

CC 

CF 

0B 

1088: 

CI 

C4 

BA 

00 

D0 

D2 

C5 

D3 

5D 

1D90: 

D3 

A0 

D2 

C5 

D4 

D5 

D2 

CE 

06 

1D98: 

00 

CE 

CF 

A0 

D2 

CF 

CF 

CD 

CD 

1DA0: 

00 

CE 

CF 

A0 

D4 

C5 

D8 

D4 

D6 

IDAB: 

A0 

C9 

CE 

A0 

C2 

D5 

C6 

C6 

4B 

1DB0: 

C5 

D2 

AE 

00 

D0 

D2 

C9 

CE 

BC 

I  DBS: 

D4 

A0 

D4 

CF 

BA 

A0 

D3 

C3 

E0 

1DC0: 

D2 

C5 

CS 

CE 

AC 

A0 

D0 

D2 

D7 

IDCB: 

C9 

CE 

D4 

C5 

D2 

BF 

00 

D3 

FB 

IDD0: 

CC 

CF 

D4 

A0 

CE 

DS 

CD 

C2 

36 

1DD8: 

C5 

D2 

BF 

00 

D0 

D2 

C9 

tE 

D6 

1DE0: 

D4 

C9 

CE 

C7 

AE 

AE 

SD 

00 

99 
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1DE8: 
1DF0: 
IDFB: 
IE00; 
lE0a: 
1E10: 
1E18: 
1E20: 
lE2a: 
1E30: 
1E38: 
1E40I 


C9  CE 
CS  D8 
D4  AC 
A0  DZ 
C6  C9 
D4  A0 
D2  CS 
D7  C9 
D7  C5 
DB  D9 
CE  05 
C6  CS 


D3  CS 
D4  A0 
A0  D0 
C5  D4 
CE  C4 
C6  CF 
D0  CC 

D4  ce 

D2  C3 
AF  CE 
CC  CC 
D2  00 


D2  D4  A0 

D3  ca  C5 

D2  C5  D3 
D5  D2  CE 
BA  00  CE 
DS  CE  C4 
CI  C3  C5 
BA  00  CC 
CI  D3  C5 
DD  BF  60 
A0  C2  D5 
00  00  00 


CE  ac 

C5  FB 
D3  13 
00  DE 
CF  B3 
00  2B 
A0  5F 
CF  21 
A0  El 
00  62 
C6  3A 
00  AB 


Program  2:  SpeedScrlpt  80 
FN©  Converter  For  DOS  3.3 

Be  sure  to  use  "Apple  Automatic  Proofread- 
er," found  elsewhere  !n  this  issue,  to  enter  the 
following  program. 

E9  5  HIMEMi  B191 
4A  10  HOME 

52  20  D«  =  CHRS  (4) 

3F  30  PRINT  D«;"MAXFILES1" 

25  40  PRINT  "DO  YOU  WANT  TOs  " 

fli  50  PRINT  "  (1)  MAKE  A  SPEEDSC 

RIPT  FILE  INTO  A  TEXT. 

FILE" 
fl£  60  PRINT  "  (2)  MAKE  A  TEXT  FI 

LE  INTO  A  gPEEDSCRIPT 

FILE" 
i7  70  BET  A»:A  =  VAL  (A*) 
47  80  IF  A  <  >  1  AND  A  <  >  2  THE 

N  70 
iS  90  ON  A  GOTO  100,200 

53  100  PRINT  "ENTER  SPEEDSCRIPT 

FILE  NAME":  INPUT  ":";A» 
89  110  PRINT  "ENTER  TEXT  FILE  NA 

ME  TO  CREATE":  INPUT  ":"; 

B« 
7E  120  PRINT  D*;"BLOAD  ";A«;",A* 

2000" 
ft8  125  L  =  PEEK  (43616)  +  PEEK  ( 

43617)  «  256  +  8192 
33  130  PRINT  D«;"DPEN  " ;  B» 
(11  131  PRINT  D*;  "DELETE  " ;  B« 
3B  132  PRINT  D»;  "OPEN  " ;  B* 
«A  140  PRINT  D»;  "WRITE  " ;  B« 
5ft  150  FOR  I  =  B192  TO  L  -  1 
E5  155  B  =  PEEK  (I) 
II  160  IF  B  =  60  THEN  B  =  141 
OF  170  PRINT  CHR«  (B)  ; 
H  180  NEXT 
F2  190  PRINT 


195  PRINT  DS; "CLOSE 

196  END 


';B» 


6D  200  PRINT  "ENTER  TEXT  FILE  NA 

ME":  INPUT  " : " ; B» 
»4  210  INPUT  "ENTER  SPEEDSCRIPT 

FILE  NAME  TD  CREATE    :"; 

A« 
32  220  PRINT  D«;  "OPEN  ";B* 
FC  230  PRINT  D»j  "READ  ";B« 
«9  235  L  =  0 
AS  240  QNERR  BOTO  270 
U   250  GET  C»:A  •■  ASC  (C*  +  CHRS 
(0))  +  128s  IF  A  =  141  T 

HEN  A  -  60 
48  260  POKE  8192  +  L,  A: 

:  BGTO  250 
•4  270  POKE  216,0 
FI  280  PRINT 
14  290  PRINT  D«;  "CLOSE 
IC  295  PRINT  D«;"BSAVE 

19Z,L"jL  -  1 
84  296  END 

Program  3:  SpeedScrlpt  80 
File  Converter  For  ProDOS 

Be  sure  to  use  "Apple  Automatic  Proofread- 
er," found  elsewhere  in  this  issue,  to  enter  the 
following  program. 

4(1  10  HOME 

52  20  D$  =  CHR*  C4) 

25  40  PRINT  "DO  YOU  WANT  TO:" 


L  +  1 


•;B» 

" ; A* ; " , AS 


ti   S0  PRINT  "  (1>  MAKE  A  SPEEDSC 
RIPT  FILE  INTO  A  TEXT 
FILE" 
flE  60  PRINT  '■  (2)  MAKE  A  TEXT  FI 
LE  INTO  A  SPEEDSCRIPT 
FILE" 
il   70  GET  A«!A  "  VAL  (A») 
47  80  IF  A  <>  1  AND  ft    <     >   2    THE 

N  70 
hi   90  ON  A  GOTO  100,200 
53  100  PRINT  "ENTER  SPEEDSCRIPT 

FILE  NAME":  INPUT  ;A» 

8'?  110  PRINT  "ENTER  TEXT  FILE  NA 
ME  TO  CREATE":  INPUT  ":"; 
B« 
7E  120  PRINT  D»;"BLOAD  ";A»;",A» 

2000" 
ft4  125  L  =  PEEK  (48859)  +  PEEK  ( 

4SB60)  »  256  -^  8192 
5ft  150  FOR  1  =  B192  TO  L  -  1 
39  160  IF  PEEK  (I)  =60  THEN  POK 

E  I, 141 
(9 


"CREATE  ";B*;",T 

"BSAVE  '■;B«;",A» 
1; ",TTXT" 


180  NEXT 
C9  190  PRINT  D»;  ' 

TXT" 
F5  195  PRINT  D*;  ' 

2000, E";L 
B3  196  END 
65  200  PRINT  "ENTER  TEXT  FILE  NA 

ME":  INPUT  " : " ; B* 
lb   210  INPUT  "ENTER  SPEEDSCRIPT 

FILE  NAME  TO  CREATE    :"; 

A» 
25  220  PRINT  CHR*  (4)  ;  "BLOAD  ";B 

*;",A«2000,TTXT" 
n   230  L  =  PEEK  (40859)  +  PEEK  ( 

48860)  t  256  +8192 
5"!  240  FDR  I  =  8192  TD  L  -  1 
Ifl  245  IF  PEEK  (I)  =  141  THEN  PC 

KE  1,60 
M  260  NEXT 
♦A  295  PRINT  D»;  "BSAVE  ";AS;",AB 

192,E";L  -  1 
B4  296  END 

Program  4:  ProDOS  f^aker 

Be  sure  to  use  "Apple  Automatic  Proofread- 
er," found  efsewhere  in  this  issue,  to  enter  the 
following  program. 


D4    =    CHRS     (4) 

PRINT  "LOADING  MLX  FILES" 

PRINT  Dt; "BLOAD  SPEEDSCRI 

PT,A*2032" 

PRINT  DS; "BLOAD  SPEEDSCRI 

PT2,A»3AF0" 

PRINT  "READING  DATA  STATE 

MENTS" 

FOR  I  =  632  TD  641:  POKE 

I  +  8192,234:  NEXT 

C  =  0:  READ  I:  IF  I  =  -  1 

THEN  190 
READ  L:  FOR  1=1 
L:  READ  A:C  =  C  + 


r-i 

100 

BE 

110 

f 

120 

i: 

130 

;f 

140 

■4 

150 

a: 

160 

ID 

170 

TO  I  + 
Ar  POKE 
:  READ 


I  +  8192, A:  NEXT 

>  CS  THEN  310 


Ae  180 

n   190 

9E  200 
B2  210 
IC  220 

F7  230 


I  = 


1  THEN  2 


=  C  +  A:  POKE  I 

GOTO  200 
IF  C  <  >  CS  THEN 


hi 

240 

AA 

250 

De 

260 

iB 

270 

ca 

280 

CS:  IF  C  < 
GOTO  160 
C  =  0 

READ  I:  IF 
20 

READ  A:C 
+  8192, A: 
READ  CS: 

310 
PRINT  "INSERT  DISK  TO  REC 
EIVE  SB. SYSTEM":  PRINT  " 

PRESS  ANY  KEY  WHEN  READY 
":  GET  A$ 

PRINT  "SAVING  SS. SYSTEM" 
ONERR  GOTO  270 
PRINT  D»; "DELETE  SS. SYSTE 
M" 

ONERR  GOTO  0 

PRINT  DS; "CREATE  SS.SVSTE 
M,TSYS" 


7E  2V0  PRINT  D»"BSAVE  SS.  SYSTEM, 

A«Z000 , L» 1 CBF , TSYS " 
M  300  PRINT  "SUCCESSFULLY  CONVE 

RTED.  BOOT  DISK  TO  RUN"! 

END 
13   310    PRINT    "ERROR    IN    DPlTfi    STflT 

EMENTS":     END 
n   320    D«TPl    0,49 

70  330  DATA  160,0,185,0,32,153 
6F  340  DATA  0,144,200,208,247,76 
E«  350  DATA  14,144,169,32,133,25 

1 
5F  360  DATA  169,50,133,250,169,8 
EC  370  DATA  133,253,169,0,133,25 

2 
»E  3B0  DATA  177,250,145,252,200, 

208 
eg  390  DATA  249,230,251,230,253, 

16S 
DB  400  DATA  253,201,37,208,239,7 

6 
"  410  DATA  3,8,74'?? 
35  420  DATA  2862,5 
i2  430  DATA  32,194,34,76,83,20 
SF  440  DATA  439 
BE  430  DATA  3136,5 

31  460  DATA  32,82,35,76,57,20 
24  470  DATA  302 

51  480  DATA  4728,5 

6E  490  DATA  32,82,35,76,118,26 

2B  500  DATA  369 

SI  510  DATA  -1 

B5  520  DATA  643,36,651,175,656,1 

76 
17  530  DATA  661,184,2953,76,2954 

,158 

32  540   DATA    2955,35,3332,76,3333 

,  1S4 
5(  550  DATA  3334,35 
5B  560  DATA  -1,  1135 

Program  5:  MLX  Data  For 
SPEEDSCR1PT2  File 

For  mistoke-oroof  program  entry,  use  "Apple 
MLX."  found  elsewhere  In  this  Issue,  to  type  In 
this  program. 


3AF0: 

45 

32 

31 

03 

20 

00 

BF 

CI 

2D 

3AFB: 

54 

24 

20 

60 

14 

20 

00 

BF 

BB 

3B00: 

C0 

57 

24 

B0 

5S 

20 

00 

BF 

27 

3B08: 

CB 

63 

24 

B0 

4D 

AD 

68 

24 

61 

3B10: 

8D 

6A 

24 

BD 

6F 

24 

BD 

77 

E3 

3B18: 

24 

AD 

55 

IE 

38 

ED 

46 

IE 

BC 

3B20: 

SD 

6B 

24 

BD 

72 

24 

AD 

36 

6B 

3B28: 

IE 

ED 

47 

IE 

SD 

6C 

24 

BD 

E7 

3B30: 

73 

24 

AD 

46 

IE 

8D 

70 

24 

AF 

3838: 

AD 

47 

IE 

8D 

71 

24 

20 

00 

50 

3B40; 

BF 

D0 

69 

24 

B0 

14 

20 

00 

50 

3048: 

BF 

CB 

6E 

24 

B0 

0C 

20 

00 

97 

3BS0: 

BF 

CC 

76 

24 

B0 

04 

20 

96 

57 

3B58: 

14 

60 

8D 

AB 

IE 

20 

96 

14 

10 

3B60: 

A9 

00 

8D 

77 

24 

20 

95 

FE 

A0 

3B68; 

20 

00 

BF 

CC 

76 

24 

20 

A6 

DE 

3B70: 

0A 

A9 

85 

A0 

24 

20 

D5 

09 

67 

3B78: 

AD 

AB 

IE 

20 

DA 

FD 

A2 

FA 

B5 

3B80: 

9ft 

4C 

IS 

0B 

20 

60 

14 

20 

D5 

3B8B: 

00 

BF 

C8 

63 

24 

B0 

CB 

AD 

67 

3B90: 

68 

24 

BD 

79 

24 

BD 

7E 

24 

06 

3B98; 

BD 

77 

24 

20 

00 

BF 

Dl 

78 

55 

3BA0: 

24 

B0 

B7 

AD 

7A 

24 

8D 

81 

28 

3BAB: 

24 

AD 

7B 

24 

BD 

82 

24 

A5 

B2 

3BB0! 

FB 

SD 

7F 

24 

A5 

FC 

SD 

80 

77 

3BBa: 

24 

20 

00 

BF 

CA 

7D 

24 

B0 

QA 

3BC0: 

99 

20 

00 

BF 

CC 

76 

24 

B0 

41 

3BC8: 

91 

AE 

7A 

24 

AC 

7B 

24 

60 

41 

3BD0: 

A0 

00 

B9 

83 

IE 

29 

7F 

99 

35 

38DB: 

AC 

IE 

C8 

CC 

58 

IE 

D0 

F2 

E2 

3BE0: 

SC 

AB 

IE 

60 

8D 

AB 

IE 

4C 

F5 

3BE8: 

2E 

23 

20 

00 

BF 

C5 

46 

24 

09 

3BF0: 

B0 

F2 

A0 

00 

AD 

00 

BE 

29 

A4 

3BF8: 

0F 

SD 

AB 

IE 

B9 

01 

BE 

99 

9fl 

3C00: 

AD 

IE 

ce 

CC 

AB 

IE 

D0 

F4 

29 

3C0B: 

C8 

SC 

AB 

IE 

A9 

2F 

8D 

AC 

31 

3CI0! 

IE 

20 

00 

BF 

C8 

63 

24 

B0 

68 

3C1S: 

CB 

A9 

AF 

20 

ED 

FD 

20 

00 

80 

3C20 
3C28 
3C30 
3C38 
3C40 
3C4e 
3CS0 
3C3e 
3C60 
3C68 
3C70 
3C7S 

3ce0 
3ca6 

3C90 
3C9e 
3CA0 
SCAB 
3CB0 
5CB6 


BF  CA 
83  D7 
Bl  D6 

D6  Fa 

IE  29 
CB  Bl 
CB  CC 
20  ED 
SS  D6 
C9  BB 
00  BF 
02  60 

00  02 
IE  07 

01  00 

00  BB 
04  00 

01  00 
00  00 
D2  D2 


4A  24 
A?  04 
C9  00 
34  4C 
0F  AA 
D6  09 
SB  IE 
FD  A9 
A5  D7 
F0  B2 
CC  52 
00  BE 
00  00 


IE 


AB 
00  00 
00  02 
00  00 
02  00 
00  00 
CF  D2 


B0  BE  A9 
SS  D6  A0 
D0  08  ca 
29  24 
E8  8E 
80  20 
D0  F3  A9 
27  IB  65 
6?  00  85 
4C  FC 
24  4C 
04  01 
01  01 
C3  06 
00  03  AB 
00  00  00 
00  00  00 
00  00  00 
00  00  00 
A0  A3  00 


8D 
SB 
ED 


23 
DA 
00 

01 
00 


B9  44 
00  97 
Bl  5A 
E5  7E 
IE  EE 
FD  3B 
BD  B4 
D6  Fl 
D7  Bl 
20  BA 
14  B3 
B9  D3 
AB  33 
00  5F 
IE  0B 
00  20 
00  IB 
04  E5 
C5  EE 
C0  CA 


=  -  1  THEN  1 

=  I  TQ  I  + 
C  +  A 
NEXT 


Program  6:  SS80.MAKER 

Be  sure  to  use  "Apple  Automatic  Proofread- 
er." found  elsewhere  in  this  issue,  to  enter  the 
following  program. 

55   50    D*    =    CHR»     C4) 

Bl    100    Fl*   =    "SPEEDSCRIPT":F2«    = 

"SPEEDSCRIPTS0" 
64  105  FA«  -  ",A*a00":FL«  =  " ,  L« 

1645": FT*  ~    "" 
F5  110  Bl  =  2048:  B2  =  8192 
F9  120  PRINT  "LDADINB  MLX  FILES. 

Di  130  PRINT  D»;"BLDAD  ";F1*;FA« 

;FT* 
EC  140  PRINT  D«;"BLOAD  PATCH.  80, 

A";B2 
?f  150  PRINT  "READING  DATA  STATE 

MENTS.  .  . " 

14  155  C  =  0 

12  160  READ  I:  IF  I 

90 
JS  170  READ  L:  FOR  I 

Li  READ  A:C  = 
35  175  POKE  I  +  B1,A: 
Al  180  GOTO  160 
59  190  READ  CS:  IF  C  <  >  CS  THEN 

1000 
2F  200  PRINT  "PATCHING  FROM  PATC 

H  FILE. . . " 
ED  210  READ  D:  IF  D  =  -  1  THEN  5 

00 
BB  220  READ  S:  READ  L:D  =  D  +  Bl 

:S  =  S  +  B2 
BB  230  FDR  I  =  0  TO  L:  POKE  (D  + 
I) ,  PEEK  (S  +  I) :  NEXT 

15  240  GOTO  210 

69  500  PRINT  "INSERT  DISK  TO  REC 

EIVE  ";F2« 
fl6  510  PRINT  "PRESS  ANY  KEY  WHEN 

READY":  BET  A* 
E3  520  PRINT  "SAVING  " ;  F2* 
99  530  DNERR  GOTO  330 
CE  540  PRINT  D«;  "DELETE  ■■;F2» 
6fl  550  DNERR  GOTO  0 
C9  560  PRINT  D«;  "BSAVE  "5F2*;FA* 

;FL»;FT* 
£4  600  PRINT  "SUCCESSFULLY  CONVE 

RTED.":  END 
!J  1000  PRINT  "ERROR  IN  DATA  ST  A 

TEMENTS":  END 
17  2000  DATA  554,1,132,254 

45  2020  DATA  579,2,234,234,234 
49  2040  DATA  643,  1,8,8 

BD  2060  DATA  3276,5,32,132,254,3 

2,88,252 
25   20S0    DATA    3310,1,8,8 
FD  2100    DATA    4081,2,234,234,234 

46  2120    DATA    4189,1,185,20 
6E   2140    DATA    4088,1,3,8 

43   2200  DATA   -1,2833 

SI   2300  DATA   0,0,39 

D6  2310  DATA    172,40,192 

7B  2320  DATA    678,233,37 


SC  2330  DATA   2673,271,13 

E9  2340  DATA    3168,285,39 

IB  2350  DATA   3222,325,43 

H  2400  DATA   -1 

Program  7:  PATCH.80 

For  mistake-proof  program  entry,  use  "Apple 
MLX."  found  elsewhere  In  this  issue,  fo  type  In 
this  program, 


2000: 
2008: 
2010: 
2018: 
2020: 
2028: 
2030: 
203B: 
2040: 
2048: 
20S0: 
2058: 
2060: 
206B: 
2070: 
2078: 
20B0: 
20B8: 
2090: 
2098: 
20  A0: 
20AS: 
20B0: 
2088: 
20C0: 
20C3: 
20D0: 
20  DB: 
20E0: 
20EB: 
20F0: 
20F8: 
2100: 
2108: 
2110: 
2118: 
2120: 
2128: 
2130: 
2138: 
2140: 
2148: 
2150: 
2158: 
2160: 
2168: 
2170: 


A9  80 
20  84 
C0  8D 
0A  A9 
88  D0 
A2  01 
20  74 
14  EG 
C9  S2 
C0  50 
C9  80 
F0  05 
84  ED 
0B  B4 
10  07 
48  8D 
A4  FD 
A6  FE 
08  20 
00  20 
8C  4E 
4A  90 
E9  01 
A0  BD 
FD  C0 
20  80 
16  F0 

08  BD 
5A  IE 
00  20 
50  20 
BA  0A 
00  BE 
FC  A9 
C6  0A 
FE  A0 

09  8D 
84  09 
60  8D 
99  14 
08  8D 
FF  FF 
A5  FF 
FF  CA 
FF  FF 
A9  07 
60  74 


80  00 

FE  20 
00  C0 
DF  A0 
FA  4C 
20  61 
14  AD 
A0  00 
F0  IC 
D0  F0 
F0  0B 
BB  D0 
88  86 
FD  BB 
30  0B 
54  C0 
BD  55 
A4  ED 


74 
7E 


IE  C0 

09  69 

10  02 
54  C0 
28  F0 
14  20 
03  4C 

59  IE 
BD  54 
BA  0A 
4A  F9 
00  00 
7B  05 
27  ED 
EA  BD 
00  A9 
A9  14 
8D  A8 
CI  08 

60  BD 
9A  14 
10  0S 
90  02 
BB  BB 
CB  C0 
85  36 
AA  BD 


03  4C 
00  C3 
A0  17 
50  20 
90  0A 
14  AD 
50  IE 
B9  FF 
C9  3C 
88  B9 
29  3F 
F0  A0 
FE  98 
48  3B 
88  B4 
20  97 
C0  20 
IB  98 
AD  C2 
E0  02 
50  F0 
00  85 
SS  FD 
20  B0 
06  80 
61  14 
BE  08 
AD  C2 
C0  60 
20  80 
20  84 
60  A0 
B4  25 
7B  05 
57  IE 
5F  60 
BD  B2 
14  8D 
SD  D2 
C2  0B 
60  60 
C9  83 
29  3F 
10  E9 
28  00 
A9  C3 
74  AA 


IF 
51 


28  0B  SB 
SD  01  86 
20  BC  20 
ED  FD  AA 
00  00  A9 
4F  IE  28 
20  7E  B4 
FF  CB  67 
F0  IB 
FF  FF 
C9  20  5E 
4F  CB  El 
4A  B0  77 
E9  01  BF 
FD  C8  4C 
14  68  C6 
97  14  63 
6D  CI  0F 
08  69  9E 
D0  03  AS 
24  98  Bl 
FD  38  34 
AB  A9  67 
14  A4  03 
55  C0  16 
EB  E0  D7 
AD  CI  B0 
08  8D  A3 
00  00  54 
FE  A2  CC 
FE  4C  A7 
00  A2  41 
4C  22  19 
60  20  C7 
20  84  66 
BD  60  02 
14  BD  DD 
Bl  14  79 
0B  80  14 
8D  D3  56 
AA  B9  12 
B0  06  D0 
9D  FF  19 
60  99  69 
F8  60  9E 
35  37  P3 
D0  E9  0a 
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Menu  Planner 


For  those  who  like  to  plan  ahead, 
here's  an  easy-to-use  BASIC  program 
that  lets  you  plan  dinner  menus  for  an 
entire  week  in  advance.  Versions  are 
included  for  the  Commodore  64,  IBM 
PC/PCjr,  Apple  U  series,  Atari  ST, 
Amiga,  and  Atari  400,  800,  XL,  and 
XE.  A  disk  drive  is  required.  A  printer 
is  optional.  The  IBM  PC/PCjr  version 
requires  BASICA  for  the  PC  or  Car- 
tridge BASIC  for  the  PCjr. 


In  a  world  where  there's  almost 
always  too  much  to  do,  a  computer 
can  be  a  wonderful  ally.  "Menu 
Planner"  is  a  time-saving  program 
which  allows  you  to  plan  an  entire 
week  of  daily  menus  in  advance, 
with  only  a  few  minutes  at  the  key- 
board. When  the  menu  is  complete, 
it  can  be  printed  out  for  use  in 
shopping  and  in  preparing  meals. 
Previous  menus  can  be  loaded  from 
disk  and  reviewed,  reused,  or  edited. 
Since  the  entire  program  is  written 
in  BASIC,  it's  also  a  simple  matter 
to  customize  it  for  your  own  partic- 
ular needs. 

Typing  The  Program 

Type  in  and  save  the  program  for 
your  computer.  Because  each  ver- 
sion is  almost  the  same,  we've  pub- 
lished one  main  program  (Program 
1)  with  line  changes  for  specific 
computers  (except  for  eight-bit 
Ataris — see  below).  If  you  are  using 
a  Commodore  64,  IBM  PC/PCjr, 
Apple  II,  Atari  ST,  or  Amiga,  type 
in  all  of  Program  1  and  then  type  in 
the  line  changes  printed  in  the  sep- 
arate listing  for  your  computer.  Be 
sure  to  save  the  complete  program 
before  you  run  it. 

Amiga  users  should  remember 
that  Amiga  BASIC  doesn't  use  line 
numbers,  unlike  most  other  ver- 
sions of  BASIC.  In  an  Amiga  BASIC 
program,  line  numbers  are  treated 
as  labels;  the  numeric  value  of  the 
line  number  is  not  significant.  That 
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is,  if  you  type  in  the  main  program, 
then  type  line  600  from  Program  6, 
the  added  line  will  not  automatical- 
ly be  placed  between  the  existing 
lines  labeled  540  and  999.  Instead, 
the  line  is  added  at  the  position 
where  it  is  typed.  When  adding  the 
lines  from  Program  6  to  the  main 
program,  you  must  manually  posi- 
tion the  cursor  in  the  proper  spot  in 
the  listing  before  entering  each  line. 
The  line  shown  as  line  5  should  be 
added  as  the  first  line  of  the  pro- 
gram. The  remaining  lines  from 
Program  6  should  be  added  be- 
tween existing  lines  540  and  999  of 
Program  1. 

A  separate  program  is  provid- 
ed for  the  eight-bit  Atari  computers 
(400,  800,  XL,  and  XE  models).  If 
you  have  one  of  these  computers, 
type  in  and  save  Program  7. 

Main  Menu 

Menu  Planner  is  a  menu-driven 
program,  meaning  that  you  make 
program  choices  by  selecting  from 
convenient,  onscreen  menus.  When 
you  first  run  the  program,  it  prints 
the  main  menu  on  the  screen.  By 
pressing  the  indicated  letter  keys, 
you  can  make  a  new  menu,  review 
the  current  menu,  print  the  current 
menu,  save  the  current  menu,  load 
a  previous  menu  from  disk,  edit  the 
current  menu,  or  quit  the  program. 

For  instance,  the  first  time  you 
use  Menu  Planner,  you  will  want  to 
press  M  to  make  a  new  menu.  The 
computer  clears  the  screen  and 
prints  a  new  display  with  onscreen 
prompts  that  tell  you  what  to  do. 

You  will  be  creating  a  dinner 
menu  for  each  day  of  the  week, 
beginning  with  Sunday.  You  begin 
with  the  entree:  Choosing  from  the 
program's  built-in  list  of  entrees. 
Menu  Planner  prints  the  first  entree 
choice  on  the  screen.  To  move  to 
the  next  entree,  press  the  space  bar. 
Continue  cycling  through  enh-ee 
selections  until  you  find  the  one 


you  want;  then  press  RETURN  to 
select  it. 

Under  the  entree  section  is  a 
special  offering  called  Eat  Out.  If 
you  select  this  choice,  the  program 
jumps  to  the  next  day  of  the  week. 
The  last  selection  in  each  category 
is  called  Choice.  This  selection  al- 
lows you  to  type  in  any  food  that  is 
not  offered  in  the  program's  built- 
in  list. 

After  you  choose  an  entree,  the 
same  process  is  repeated  for  three 
additional  categories:  a  vegetable 
dish,  a  starch  or  bread  dish,  and  a 
dessert.  When  you  have  completed 
an  entire  meal,  the  entire  cycle  re- 
peats until  you  have  made  an  entire 
week  of  menus.  At  this  point,  the 
main  menu  reappears. 

Other  Options 

The  Review  option  lets  you  review 
the  entire  current  menu,  one  meal 
at  a  time.  Press  the  space  bar  to 
continue  to  the  next  meal. 

The  Print  option  prints  a  menu 
to  a  printer  with  a  couple  of  extra 
items  to  aid  you  in  shopping  for  the 
week.  Be  sure  that  the  printer  is 
connected  and  turned  on  before 
you  select  this  option. 

The  Save  option  saves  the  cur- 
rent menu  to  disk.  When  you  select 
this  option,  Menu  Planner  prompts 
you  to  enter  a  number  for  the 
menu.  Enter  a  1  for  the  very  first 
menu,  2  for  the  second,  and  so  on. 
You  do  not  have  to  type  in  a  file- 
name; Menu  Planner  automatically 
creates  a  filename  using  the  num- 
ber you  supply.  Do  not  use  the 
same  number  twice. 

The  Load  option  loads  an  exist- 
ing menu  from  disk.  This  selection 
should  be  used  whenever  you  want 
to  review,  edit,  or  print  out  an  old 
menu.  Again,  you  don't  need  to 
type  in  a  filename.  Simply  enter  the 
number  of  the  menu  you  wish  to 
load. 

The  Edit  feature  allows  you  to 


change  an  existing  menu.  This  is 
done  by  reentering  the  selections 
for  an  entire  day.  Note  that  you 
must  have  a  menu  in  memory 
before  you  select  this  option  (if  you 
don't.  Menu  Planner  has  nothing  to 
edit).  Type  in  the  day  of  the  week 
when  prompted;  you  must  spell  out 
the  day  completely  (for  instance, 
type  MONDAY  instead  of  MON). 
When  the  menu  has  been  altered, 
the  main  program  menu  reappears. 
This  feature  simplifies  the  process 
of  making  similar  menus.  Simply 
reload  an  old  menu,  change  the 
meals  for  one  or  more  days,  and 
then  resave  it. 

The  Quit  option  ends  the  pro- 
gram. If  you  have  not  already  saved 
the  current  menu,  be  sure  to  do  so 
before  quitting. 

Customizing  Menu 
Planner 

The  program  can  be  changed  easily 
for  personal  preference.  For  ex- 
ample, you  may  prefer  to  start  the 
week's  menus  with  Monday  rather 
than  Sunday.  To  do  so,  rearrange 
the  order  of  the  days  in  line  90.  If 
you  don't  like  some  of  the  foods 
offered  in  the  built-in  lists,  substi- 
tute different  foods  of  your  own. 
This  is  done  by  editing  the  DATA 
statements  that  contain  the  names 
of  dishes.  If  you  make  this  change, 
be  sure  that  the  total  number  of 
items  matches  the  values  in  lines 
10-40.  These  lines  contain  RE- 
Marks  to  indicate  which  category 
they  control.  For,  example,  to 
change  the  total  number  of  entrees 
from  40  to  45,  change  the  40  in  line 
10  to  45.  A  more  significant  modifi- 
cation might  be  to  add  an  entirely 
new  category — say,  a  second  vege- 
table dish  or  a  beverage. 

For  Instnjctions  on  entering  these  programs, 
please  refer  to  "COMPUTEI's  Guide  to  Typing 
in  Programs"  elsewhere  In  this  Issue, 

Program  1:  Menu  Planner- 
Main  Program 

10  NUB)  =40:  REM  NUMBER  OF  ENTRE 

ES 

20  NI(1)-20:REM  NUMBER  OF  VEBET 

ABLES 

30  N1(2)=20:REM  NUMBER  OF  STARC 

H/ BREADS 

40  NI(3)=20:REM  NUMBER  OF  DESSE 

RTS 

50  FOR  1  =  1  TO  17:EL»-EL»+CHR» 

(32) :NEXT 

60  T=0iFOR  I  =  0  TO  3:  IF  NKI) 

>   T  THEN  T=NI(1) 

70  NEXT; DIM  MN»<3, T+1) ,SE*(3, 7) 


80  FOR  N  =  1  TO  7: READ  DA*(N):N 

EXT 

90  DATA  SUNDAY, MONDAY, TUESDAY, W 

EDNESDAY, THURSDAY, FRIDAY, SAT 

URDAY 

100    FDR    I    =    0    TO   3:READ    TISdJ: 

TI*(I)=TI*(I)+": ":NEXT 

110  DATA  ENTREE, VEQETABLE, STARC 

H/BREAD, DESSERT 

120  FDR  I  =  0  TD  3: FOR  N  =  1  TO 

NKI):  READ  MN4  (I ,  N)  s  NEXT:  M 
N4 ( I , N) ="CHDICE" : NEXT 
130  CH*="MRPSLEQ":BDTO  350 
140  N=l 

150  RW=1:CL-14!S0SUB  900: PRINT" 
MENU  PLANNER" 

160  RW=3:CL=0:GOSUB  910: PRINT  D 
A«(N) 

170  RW=12:CL=ll:aQSUB  910:PRINT 
"<C>  TO  CANCEL" 

180  RW=13!GDSUB  910: PRINT"<RETU 
RN>  TO  SELECT" 

190  RH"14!60SUB  910: PRINT"<SPAC 
E  BAR>  TO  CYCLE" 

200  1=0: FOR  K  =  0  TO  3:SE»<K,N) 
="":NEXT 
210  RW=5+I:CL=0:QOSUB  910; PRINT 

TI*<I) 
220  R=l 

230  RW=5+I:CL-15:B0SUB  910:PRIN 
T  MN«{I,R) !EL» 
240  80SUB  930 

250  IF  A*  <>  CHRaC13)  THEN  280 
260  IF  R  =  NI(I)+1  THEN  SOSUB  4 
e0:Se»(I,N)"IM»:EOTO  310 
270  SE«(I,N)=MN«{I,R):GaTO  310 
280  IF  A»  =  "C"  THEN  GOTO  150 
290  IF  A*  =  CHR*(32)  THEN  R=R+1 
tIF  R  >  NI(I)+1  THEN  220 
300  GOTO  230 

310  IF  SE»(0,N)  =  "EAT  OUT"  THE 
N  330 

320  1=1+1: IF  I  <  4  THEN  210 
330  IF  FL  =  1  THEN  FL=0:aOTO  35 
0 

340  N=N+1:IF  r^  <  8  THEN  150 
350  RW=1:CL-14:GDSUB  900:PRINT" 
MENU  PLANNER" 

360  RW=5sCL=9:G0SUB  910:PRINT"< 
M>AKE  A  MENU" 

370  RW-6:QQSUB  910: PR1NT"<R>EVI 
EW" 

380  RW-7:QDSUB  910: PRINT"<P>RIN 
T" 
390  RW=a:QDSUB  910: PRINT"<S>AVE 

400  RW-9:Q0SUB  910: PRINT" <L>D AD 

410  RW"10iGDSUB  910:PRINT"<E>DI 

T" 

420  RW=11j60SUB  910: PRINT"<Q>UI 

T" 

430  RW»15:CL-6:BOSUB  910: PRINT" 

TYPE  LETTER  OF  YOUR  CHOICE" 

440  QOSUB  930: FDR  L  =  1  TD  7;  IF 

A»  <>  MID»<CH»,L,11  THEN  4 
60 

4S0  ON  L  GOTO  140,600,600,700,7 
50,510,800 
460  NEXT 
470  GOTO  440 

4B0  GOSUB  920:RM-10:CL'=0:6DSUB 
910! INPUT" CHOICE" J I«» 
470  IF  IM»  -  CHR*(32)  OR  IM»  = 
""  THEN  480 

500  R-46;RW-10:CL=0: GOSUB  910: P 
RINT  EL*; EL* : RETURN 
510  RW-2:CL-5:BDSUB  900! INPUT "D 
AY  TO  EDIT";DA« 

520  FOR  N  »  I  TO  7t IF  DA*  -  DA* 
(N>  THEN  FL»1:G0T0  150 
530  NeXT!RW-4:CL-3:BDSUB  910: PR 
I NT "DAY  MUST  BE  SPELLED  OUT 

IN  FULL" 


540  FOR  R  =  1  TO  2000: NEXT: SOTO 
350 

999  rem:  ENTREES: 

1000  DATA  HOT  DOGS, HAMBURGERS, P 
ORK  CHOPS, STEAK, ROAST  BEEF 

, ROAST  PORK, LAMB  CHOPS 

1010  DATA  VEAL  CUTLETS, ROAST  CH 

ICKEN, FRIED  CHICKEN, CHICKE 

N  SALAD, SPAGHETTI 

1020  DATA  LASAHNA,TACOS,TUNA  PA 

TTIES,TUNA  SALAD, TUNA  NDOD 

LE  CASSEROLE, BEEF  STEW 

1030  DATA  TURKEY, POTATO  CHEESE 

SOUP, COTTAGE  CHEESE, PEA  SO 

UP, OMELETTE 

1040  DATA  FETTUCINI, CANNELLONI, 

MAN I CDTT I , CREPES , SCRAMBLED 

EGGS, BURR I TOS 
1050  DATA  MEAT  LDAF,LEE  OF  LAMB 
,VEAL  SCALOPPINE, HALIBUT, F 
I 5H, LOBSTER, CRAB 

1060  DATA  CHOW  ME IN. CHOP  SUEY.B 
EEF  VEGETABLE  SOUP, EAT  OUT 

1099  REM  VEGETABLES: 

1100  DATA  CORN, PEAS, TOMATOES, GR 
EEN  BEANS, SPINACH, GREEN  SA 
LAD, FRUIT  SALAD, CARROTS 

1110  DATA  BROCCOLI, CAULIFLOWER, 

SQUASH, ZUCCHINI, LETTUCE, CU 

CUMBER, PICKLE, MUSHROOMS  11 

20  DATA  CELERY, ONIONS, 8REE 

NS.LIMA  BEANS 

1120  DATA  CELERY, ONIONS, GREENS, 

LIMA  BEANS 

1199  REN  STARCH/BREADS: 

1200  DATA  BREAD, FRIED  POTATOES, 
NOODLES, ROLLS, PILAF, PI TA,K 
ASHA, MATZOHS, CRACKERS 

1210  DATA  SWEET  POTATOES, RICE, F 

RENCH  FRIES, MASHED  POTATOE 

S, BAKED  POTATO 

1220  DATA  BREAD  STICKS, GARLIC  B 

READ, FRIED  RICE, FOILED  POT 

ATOES, BUNS, PASTA 

1299  REM  DESSERTS S 

1300  DATA  ICE  CREAM, POPS I CLE, C A 
KE , DOUGHNUT , FRU I T , CHEESECA 

KE, COOKIES, PUDDING 

1310  DATA  JELLO, SORBET, BROWNIES 

.FUDGE, FRUIT  PIE, CREAM  PIE 

.SWEET  ROLL,TDRTE 

1320  DATA  BOMBE, BAKED  ALASKA, DR 

lED  FRUIT, JELLY  ROLL 

Program  2:  Commodore  64 
Line  Changes 

DX  600  RW=0:CL=17+MiGOSUB900 
SM  610  PRINT"MENU: "ilFBS="P"TH 

ENPRINTSPC(45)"ON  HAND 

15  SPACESjNEED  TO  BUY" 
GD  620  FORH=1T07 jPRINTiPRIMTSP 

C(20-LEN(DA5(N) )/2)DA?( 

N) ! PRINT 
MR  630  FOR  1=0  TO  3:PRINTSPC(4 

) ;TIS{I) ;SPC(14-LEN(TI$ 

(I))),-SE$(I,N)  :NEXT 
AH  640  IFB5="R"THEN  GETA5:IFA? 

=""THEN640 
RM  650  NEXT 
CH  660  1FB5="P"THENPRINT#4iC:LO 

SE4 
AS  670  GOTO350 
JK  700  RW=2:CL=3:GOSUB90ajNO$= 

"":INPUT "NUMBER  OR  MENU 
TO  SAVE";N0$:IFN05=""T 

HEN 3 50 
DP  710  OPEN3,8,3, "0!MENU"+NO?+ 

"S,W" 
BA    720    FORN=1TO7:FORI=0TO3:PRI 

NT#3,SE5(I,N) :NEXTI,N 
AK    730    CLOSES :GOTO350 
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AJ  750  RW=2:CL=3:GOSUB900:NO$= 
"":IWPUT"NUMBER  OF  MENU 
TO  LOAD";NOS:IFNOS=""T 
HEN350 

KB  760  OPEN3,8,3, "0:MENU"+NO$+ 
"S,R" 

QS  770  F0RN=lT07:F0RI=0TO3:INP 
UT#3,SE?{I,N) :NEXTI,N 

QR  780  CLOSE3:GOTO350 

AD  800  RW=0:GOSUB900:END 

RG  900  PRINTCHR?(147) 

CM  910  P0KE781,RW:P0KE7a2,CL:P 
OKE783,0:SYS65520:RETUR 
N 

JQ  920  POKE198,0! RETURN 

QJ  930  GETA5: RETURN 

Program  3:  IBM  PC/PCjr  Line 
Changes 

N9  5  KEY  DFF:DEF  SEG=0:DEFINT  fk- 
Z:POKE  1047,PEEK(1047)  OR  6 
4:WIDTH  40:LOCATE  ,,0 
PS  290  IF  fl«  =  CHR*(32)  THEN  R=R 

+I:RW=5+I:CL=15:G0SUB  910 

: PRINT  SPACE* (21 ): IF  R  > 

NI(I)+1  THEN  220 
Kl   600    B»-A*:RW-0:CL=17:GOSUB  90 

0 
HF  610  IF  B«="P"  THEN  OPEN  "LPTl 

:"  FOR  OUTPUT  AS  #1: PRINT 
#1,SPC<1B)  ELSE  OPEN  "SC 

RN: "  FOR  OUTPUT  AS  #1 
CL  620  PRINT  #1,  "MENU:":  IF  B*="P 

"  THEN  PRINT  #1 , SPC (45) ; " 

ON  HAND      NEED  TO  BUY" 
OH  630  FOR  N  =  1  TO  7:  PRINT  «i,C 

HR«(13) :PRINT  #1,SPC(20-L 

EN(DA»(N) )/2) ;DA»(N):PRIN 

T  #i,CHR»(13> 
PH  640  FOR  I  =  0  TO  3:PRINT  #1,S 

PC(4) ;TI*(I) ;SPC(14-LEN(T 

I*{I) ) );SE»(I,N):NEXT 
6C  650  IF  B$="R"  AND  INKEY«=""  T 

HEN  650 
LE  660  NEXT:  CLOSE  *tl:SOTO  350 
IK  700  RWs2:CL=3:G0SUB  900:  INPUT 
"NUMBER  OR  MENU  TO  SAVE" 

;NO«:IF  N0»=""  THEN  350 
JN  710  OPEN  "MENU"+NOt  FDR  OUTPU 

T  AS  #1 
BK  720  FOR  N=l  TO  7:  FOR  1=0  TO  3 

:PRINT  #1,SE*(I,N) :NEXT  I 

,N 
BS  730  CLOSE  #1:B0T0  350 
HH  750  RW=2:CL=3:G0SUB  900:  INPUT 
"NUMBER  OR  MENU  TO  LOAD" 

;ND»:IF  N0»=""  THEN  350 
FN  760  OPEN  "MENU"+NO«  FDR  INPUT 

AS  #1 
OR  770  FOR  N=l  TO  7:  FDR  1=0  TO  3 

: INPUT  #l,SE$(I,N)iNEXT  I 

.N 
a   780  CLOSE  #1:GDT0  350 
EJ  B00  CLS:END 
AF  900  CLS 

LR  910  LOCATE  RW+1 ,  CL  +  1 :  RETURN 
CK  920  WHILE  INKEY»<>"  ":  WEND:  RET 

URN 
HI  930  A«=  I NKEYS:  RETURN 

Program  4:  Apple  II  Line 
Changes 


M  5  D»  =  CHR*  (4) 
5F  600  RW  =  0:CL  = 
K   610  B*  =  A»:  IF  B» 

PRINT  !  PRINT  D»;"PR#1": 
PRINT  I»;"a0N" 
06  620  PRINT  "MENU:":  IF  B*  -  "P 
"  THEN  PRINT  SPC (  45) "ON 
HAND      NEED  TO  BUY" 
«  630  FOR  N  =  1  TO  7:  PRINT  :  P 


I*  =  CHR*  (9) 
0:  GOSUB  900 
P"  THEN 


Fl 

650 

IF  B«  =  " 

lA 

660 

NEXT 

FS 

670 

IF  BS  =  " 
; "PR#0" 

AS 

680 

eOTO  350 

K 

700 

RW  =  2:CL 

CF  710 
It   720 


3E  730 
m  750 


Jf  760 
il  770 


<8  780 


IF 

800 

K 

700 

21 

910 

!D 

920 

t,i 

930 

RINT  SPC(  20  -  LEN  (DA*(N 
) )  /  2)DA*(N):  PRINT 
Cfl  640  FOR  I  -  0  TO  3:  PRINT  SPC 
(  4) 5TI*<I) ;  SPC(  14  -  LE 
N  (TI«(I) ) ) ;SE*(I,N) :  NEX 
T 

THEN  GET  fi« 


P"  THEN  PRINT  D* 


3:  BDSUB  900: 
INPUT  "NUMBER  OR  MENU  TO 
SAVE" [NO*:  IF  NO*  -  ""  T 

HEN  350 

FF»  =  "MENU"  +  N0»:  PRINT 
0«i "OPEN";FF» 

PRINT  D«; "WRITE"; FF«:  FDR 
N  -  1  TO  7:  FOR  I  -  0  TO 
3:  PRINT  gE»(I,N) :  NEXT 

1,N 

PRINT  D»; "CLOSE" ;FF«:  DOT 

0  350 

RW  =  2:CL  -  3:  (BOSUB  900: 
INPUT  "NUMBER  OF  MENU  TO 
LOAD"!NO«:  IF  NO*  -=  ""  T 

HEN  350 

FF*  =  "MENU"  +  N0«:  PRINT 
D*; "OPEN" IFF* 

PRINT  D»; "READ";FF»:  FOR 

N  -  1  TO  7!  FOR  I  -  0  TD 

3s  INPUT  SE»(I,N):  NEXT  I 

,N 

PRINT  D*; "CLOSE ";FF*:  EOT 

0  350 

HOME  :  END 

HOME 

VTAB  RW  +  1:  HTAB  CL  +  1: 
RETURN 

RETURN 

SET  A*:  RETURN 


Program  5:  Atari  ST  Line 
Changes 

5      FULLW  2»CLEARW  2 

600    B«-A«iRW-0iCL-17iQD8UB  90 

01  IF  B*  -  "P"  THEN  650 
610    PRINT  "MENU I " 
620    FOR  N  -  1  TO  7iPRINTiPRIN 

T  SPC<20-LEN(DA»<N))/2)|D 

A* (N> I  PRINT 
630    FOR  I  -  0  TD  3i PRINT  SPC< 

4>|TI«(I)|8PC(14-LEN(TI»< 

I>>) |SE«(I,N)iNEXT 
640    A-INP(2)iNEXTiB0T0  350 
630    LPRINT  "MENUi " 
660    FDR  N  -  1  TO  7lLPRINT>LPR 

INT  aPC(20-LEN(DA»(N))/2) 

jDft«<N) I LPRINT 
670    FDR  I  -  0  TO  3i LPRINT  SPC 

(4) I TI» ( r ) I 8PC ( 14-LEN (TI» 

(I) n |8E«<I,N) I  NEXT 
680    NEXTlBDTO  350 
700    RW-2 1 CL-3 1 GOSUB  900 1  I NPUT 
"NUMBER  OR  MENU  TO  SAVE" 

I  NO* I  IF  NO*"""  THEN  350 
710    FF*»"«ENU"+ND»lOPEN  "0",# 

1,FF* 
720    FOR  N  -  1  TO  7tF0R  1-0 

TO  3! PRINT  #l,SE«(I,N)iNE 

XT  I,N 
730    CLOSE  (tliBOTO  330 
750    RW-2lCL-3iB0SUB  900! INPUT 
"NUMBER  OR  MENU  TO  LOAD" 

(NO*ilF  NO*-""  THEN  350 
760    FF*-"MENU"+NO»lOPEN  "!",# 

1,FF» 
770    FOR  N  -  1  TO  7iF0R  I  »  0 

TO  3j INPUT  «1,SE«(I,N)|NE 

XT  I,N 
7B0    CLOSE  «llBOTO  330 
800    CLEARM  2 1  END 


900  CLEARW  2 

910  GOTOXY  CL.RWs RETURN 

920  RETURN 

930  A*-CHR* ( INP ( 2 ) > 

935  RETURN 

Program  6:  Amiga  Line 
Changes 

5  DEFINT  A-Z: SCREEN  1,320,200,4, 

1: WINDOW  3,"", (0,0)-(311,186) ,16 

,1:WIMD0W  OUTPUT  3-« 

600  BS=A5 :RW=0:CL=17iGOSUB  900* 

610  IF  BS-"P"  THEN  OPEN  "LPTl:" 

FOR  OUTPUT  AS  tlsPRINT  #1,SPC(18 

)  ELSE  OPEN  "SCRN:"  FOR  OUTPUT  A 

S  #1* 

620  PRINT  *1, "MENU:":IF  BS="P"  T 

HEN  PRINT  #1,SPC(45)"DN  HAND 

NEED  TO  BUY"-* 

630  FOR  N  =  1  TO  7: PRINT  #1,CHR? 

(13):PRINT  #1,SPC(20-LEN{DA$(N) ) 

/2);DA?(N) :PRINT  #1 , CHR? ( 13 ) * 

640  FOR  I  =  0  TO  3: PRINT  #1,SPC( 

4) ;TI5(I};SPC(14-LEN(TI?(I)) ) ; SE 

$(I,N) :NEXT< 

650  IF  BS="R"  AND  INKEY5=""  THEN 

650* 

660  NEXTiCLOSE  *1:G0T0  350* 

700  RW-2 :CL=3: GOSUB  900: INPUT  "N 

UMBER  OR  MENU  TO  SAVE";NO$:IF  NO 

?=""  THEN  350* 

710  OPEN  "MENU"+NO$  FOR  OUTPUT  A 

S  #1* 

720  FOR  N=l  TO  7:F0R  1=0  TO  3:PR 

INT  #1,SES(I,N) :NEXT  I , N* 

730  CLOSE  #1:G0T0  350* 

750  RW=2:CL=3 iGOSUB  900rINPUT  "N 

UMBER  OR  MENU  TO  LOAD" ; NO? : IF  NO 

5=""  THEN  350* 

760  OPEN  "MENU"+NO$  FOR  INPUT  AS 

#1* 

770  FOR  N=l  TO  7 : FOR  1=0  TO  3 : IN 

PUT  #1,SES(I,N) :NEXT  I , N* 

780  CLOSE  #1:GOTO  350* 

800  WINDOW  CLOSE  3 : SCREEN  CLOSE 

1 1  END* 

900  CLS* 

910  LOCATE  RW+1,CL+1: RETURN* 

920  WHILE  INKEY$<>"" :WEND:RETURN 

-« 

930  A$=UCASES( INKEYS) : RETURN* 


Program  7:  Menu  Planner 
For  Atari  400,  800,  XL, 
And  XE 


HK  5     D 
) 


KH  10 
HI  20 
DN  3  0 
AH  40 
CD  45 
AD  50 
K  60 
HI  70 

L6  75 


IM  NI 
,  EL*  ( 
FF*  (9 
1  ) 
NI  (0) 

ENTR 
NI  (1) 

VEGE 
NI  (2> 

STAR 
NI  (3) 

DESS 
OPEN 
752,  1 
EL«  =  C 
HR»  (3 
NI'=0 
I  (  I  >  > 
NEXT 
)  «21  + 
4»21  + 
FOR  J 
D  7;  K 
1  :  SE* 

N:NE 


(3)  ,  I 

17)  ,D 
)  ,  NO* 

=  40:  R 
EES 

20:  R 
TABLE 

20:R 
CH/BR 
=  20:R 
ERTS 
#1,4, 
;  POKE 
HR*  (3 
2)  :  EL 
FOR  I 
NI  TH 
I  :  DIM 
21  )  ,  D 
7*4*2 
=  0  TO 
=  J«21 
(K,  K  + 
XT  J 


M« (21 ) , T» (21 
E* (9) , CH* (7) 
(3)  , A*  (  1)  , B* 

EM  NUMBER  OF 

EM  NUMBER  OF 

S 

EM  NUMBER  OF 

EADS 

EM  NUMBER  OF 

,  "K:  ":POKE 

82,0 
2) : EL* ( 17) -C 
* (2) =EL» 
=0  TO  3: IF  N 
EN  NI=NI  (  I) 

MN* (4( (NI+1 
A* (8*9) ,SE*( 
1)  , TI*  <4»13) 

3:FaR  N=l  T 
+  (N-1)  »4»2H- 
16)=EL«: NEXT 
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DK80  F 

« 
KR  8S  K 

N 
IK  90  D 

B 

Y 
]£  100 


1!  10S 

00  H0 

DS  120 

DE  125 

fD  130 

FB  140 

LL  150 


OR  N=l  TO 
LEN (T«)  :  I 
(L+1 >=EL» 
= (N-1 ) »9+ 
EXT  N 
ATfl  SUNDA 
DAY, WEDNE 
, FRIDAY, S 
FOR  1=0  T 
L-LEN (T*) 
N  T* (L+1 ) 
T* tL+l,L+ 
3+1! TI* (K 
DATA  ENTR 
, STARCH/B 
FOR  r=0  T 
TO  NIC)! 
N<T*)  :  IF 
(L+1 ) =EL« 
K=I«  tNI  +  1 
1  +  1 : MN*  (K 
K-K+21 : MN 
<K,  K  +  5)  =• 
K+6) =EL» 
CH*="I1RPS 
0 

N  =  l 

RW=1:CL=1 
PRINT  "ME 


7;READ  T*;L 
F  L<9  THEN  T 


1 : DA» (K)=T»: 


Y,MO 
SDAY 
ATUR 
D  3: 
;  IF 
=  EL« 
i)-" 
)  «=T* 
EE,V 
READ 
0  3: 
READ 
L<21 


NDAY.TUE 
, THURSDA 
DAY 

READ  T«: 
L<13  THE 

:  ":K  =  I»1 
:NEXT  I 
EGETABLE 
, DESSERT 
FOR  N=l 
T*s  L  =  LE 
THEN  T* 


) «21+(N-1) «2 
J-TSrNEXT  N: 
« (K) -EL*t MN» 
CHOICE" ! MN» ( 
NEXT  I 
LEQ":GDTO  35 


4:GaSUB  ?00: 
NU  PLANNER" 


Ffl 160  RW=3: CL=0: BOSUB  910iK 
=  {N-n»9+l:?  DA»(K,K  + 
B) 

KO170  RW=12:  CL°11:6DSUB  910 
: PRINT  "<C>  TD  CANCEL 


Nit  200 


KK  210 


H  220 
CF  230 


a  240 
a  250 


CI  260 


Ee270 


F«  280 

JI  290 

6B  300 

HB  310 

ft£  320 

FO330 

■n340 

LN  350 

BA  360 

BB370 

I»0:FOR  J=0  TO  3!K=J* 

21+(N-l)«4»21+l!SE*(K 

, K+16) =EL»: SE$ (K,K+17 

)=-EL$:NEXT  J 

RW=5+1 : CL=0S SOSUB  910 

:K=I«13+1:PRINT  TI*(K 

,K+12) 

R=l 

RW=5+I ! CL=15:GaSUB  91 

0;K=I»(NI+1)«21+CR-1) 

*21+1:PRINT  MN»(K,K+2 

0) 

6DSUB  930 

IF  A*<>CHR»C155)   THEN 

2B0 
K=I*21  +  <N-l)«4«2l  +  l!  I 
F  R=Ni(I)+l  THEN  GDSU 
B  470: SE* {K,K+20)=IM* 
sGOTD  310 

K1=I*(NI+1)«21+(R-1)* 
21+11 SE»(K,K+20)=MN» ( 
Kl ,Kl+20) : GOTO  310 
IF  A*="C"  THEN  GOTO  1 
50 

IF  A*=CHR*(32>  THEN  R 
=R+1:IF  R>NI(I)+1  THE 
N  220 
GOTO  230 


ES 

E 


GOTO  230 

K={N-1) *4t21+l : IF  SE 

CK,K+6)="EAT  OUT"  TH 

N  330 

1=1+1: IF  I<4  THEN  210 

IF  FL=1  THEN  FL=0:BOT 

0  350 


BO  380 

DC  390 
tn  400 
NL  4  10 
PK  420 
8P  430 

JN  440 

DI  445 

CE  450 
GL  460 
OB  470 

HP  480 
PE  490 
FN  S00 

JQ  S10 

IJ  520 

EKS30 

KP  600 

CN  610 

LI  620 
DA  630 


RW=7: GOSUB 
"<P>RINT" 


910SPRINT 


RW 
'■<S 
RW  = 
"<L 
RW  = 

"< 
RW  = 

"< 
RW  = 
PRI 

YO 
GOS 
7:  I 
N  4 
ON 
,70 
NEX 
GOT 
RW  = 
PRI 

I« 
IF 
S=" 
RW  = 
PRI 
RW  = 
RIN 
NPU 
EN 
FOR 
9+1 
N{D 
OTO 
NEX 
B  9 

BE 
LL" 
FDR 
:Ga 
B« 
B  9 
DE« 
EN 
OPE 
PRI 
«=" 

L*; 

t5 


8:  GO 
>AVE 
9:  GO 
>OAD 
10:Q 
E>DI 
1  1  :  G 
Q>UI 
15:C 
NT  " 
UR  C 
UB  9 
F  A» 
50 

L  GO 
0,75 
T  L 
0  44 
10:  C 
NT  " 

IM«  = 
"  TH 
10:  C 
NT  E 
2:  CL 
T  "D 
T  DE 
350 

N=l 

IF 
E*)  - 

150 
T  N 
10:  P 

SPE 


SUB  910SPRINT 
SUB  910:PRINT 
10: PR  I  NT 
10: PRINT 


DSUB  9 

T" 

OSUB  9 
T" 

L-6: GO 
TYPE  L 
HO  ICE" 
30: FOR 
<  >CH» ( 

TO  140 
0, 500, 

0 

L":0:  GO 

CHOICE 


SUB  910: 
ETTER  OF 

L-1  TO 
L,L)  THE 

,600,600 
800 


SUB  910: 
INPUT 


CHR«(32)   OR  IM 
EN  470 

L  =  0:  so: 
L»;EL» 
>S:GOSI 
AY  TO 
♦  s  IF  DI 


}SUB  910: 
[RETURN 

5UB  900:P 
EDIT" i : I 

5ES=""  TH 


TO  7 
DE«»DA 
1  >  THE 

RW=-4:  C 
RINT 
LLEO  0 


K=(N-1) * 
«  CK,K  +  LE 
N  FL=1:B 

L=3: BOSU 
DAY  MUST 
UT  IN  FU 


R=l  TO  200SNEXT  R 
TD  350 

A»:RW=0: CL=17: GOSU 
00 

="P: " ; IF  B*="R"  TH 
DE*="E: " 
N  #2,8,0,DE« 
NT  #2; "MENU: " : IF  B 
P"  THEN  PRINT  »2;E 
EL$;EL*;"0N  HAND 
SPftCES>NEED  TO  BUY 


FE  640  FDR  N=l  TO  7:  PRINT  #2 
; CHR* ( 155)  :K=<N-1>  »9  + 
1 : PRINT  *2;EL» (1,16); 
DA»(K, K+8) 

HP  650  FOR  1=0  TD  3:K=I*13  +  1 
jKl=I*21+(N-l)*4*21+l 
:PRINT  *2;TI* (K,K+12) 
;  EL*  (1,2)  ;SE»  (Kl,)<l+2 
0)!NEXT  I 

DE  660  IF  B*="R"  THEN  GET  #1 
,A 

BK  670  NEXT  N:  CLOSE  #2:  GOTO 
350 

EP700  RW  =  2:  CL=3:  BOSUB  900:  P 
RINT  "NUMBER  OR  MENU 
TO  SAVE" ;  :  INPUT  NO*:  I 
F  N0«  =  '""  THEN  350 

EH710  FF»="D:MENU":FF»  (5)  =N 
0»:0PEN  #2,8,0,FF* 

Afi720  FDR  N=l  TD  7:  FOR  1=0 
TO  3;K=I«21+ (N-1 ) t4*2 
1+1:PRINT  #2;SE*CK,K+ 
20)  :NEXT  I  :NEXT  N 

Hft730  CLOSE  #2: GOTO  350 

EF  750  RW  =  2:  CL  =  3:  QOSUB  900:P 
RINT  "NUMBER  OR  MENU 
TO  LOAD";: INPUT  NO*sI 
F  N0*=""  THEN  350 


EI  760  FF»-"D:MENU":  FF»(5)=N 
0«:OPEN  #2,4,0,FF* 

HF770  FOR  N  =  l  TO  7:  FOR  1=0 
TO  3!K=I»21+ (N-1) *4»2 
1+llINPUT  «2;T«:SE»(K 
, K+20) -T*: NEXT  I:NEXT 
N 

HF  780  CLOSE  #2:  GOTO  350 

OF  800  ?  CHR»(125)  sPOKE  752, 
0:  END 

hC  900  ?  CHR*  (  125) 

IK910  POSITION  CL,RW:RETURN 


BET  #1 , A 


: A»=CHR* (A) :R 


ED  1099 
}H   1  100 


BO  1  1  1  0 


FF  1  120 


PITA, KASHA, MATZOHS.C 

PACKERS 

DATA  BREAD  STICKS, GA 

RLIC  BREAD, FRIED  RIC 

E, BOILED  POTATOES, BU 

NS, PASTA 

■OPSI 
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Reviews 


Tass  Times  In  Tonetown 

Ervin  Bobo 


Requirements:  Amiga  (reviewed  here), 
Apple  U  series,  Atari  ST,  Commodore  64, 
IBM  PC  and  compatibles,  and  Macintosh 
computers.  Different  computer  versions 
may  vary  slightly.  Color  monitor  required. 


Cramps  has  disappeared,  Spot  is  fol- 
lowing you  all  around  the  house,  and  in 
the  lab  is  a  fishbowl  full  of  guitar  picks. 
(Well,  where  else  would  you  keep 
them?) 

This  is  the  beginning — almost — of 
Toss  Times  In  Tonetown,  a  new  graphics 
adventure  from  Activision  and  Inter- 
play Productions,  the  team  who 
brought  Mind  Shadow  and  Borrowed 
Time  to  the  home  computer. 

Like  those  predecessors.  Toss 
Times  is  a  mystery,  and  the  disappear- 
ance of  Cramps  is  only  the  beginning. 
Before  you're  through,  you'll  see 
strange  places,  deal  with  stranger  peo- 
ple, and  learn  a  strange  new  dialect  in 
which  the  word  "tass"  equates — some- 
what— with  what  a  long-ago  genera- 
tion called  "hip." 

After  a  striking  opening  screen  and 
theme  music,  you'll  find  yourself  in  the 
living  room  of  Cramps.  His  dog  Spot  is 
here  and  so  is  a  receipt  for  an  anchovy 
and  pepperoni  pizza,  but  no  Cramps. 

The  screen  is  divided  into  four 
main  sections.  In  the  upper  left  quarter 
you'll  see  Cramps'  living  room,  while 
the  upper  right  quarter  contains  eight 
icons  that  will  speed  your  communica- 
tion with  the  parser  (the  portion  of  the 
program  that  interprets  your  com- 
mands). Just  below  this  and  running  the 
width  of  the  screen  is  another  bar 
where  your  inventory  will  be  displayed 
and  where  simple  directional  com- 
mands can  be  executed  by  clicking  on 
the  proper  compass  point.  At  the  bot- 
tom of  the  screen  is  the  text  area,  large 
enough  to  display  seven  lines  of  text.  H 
waits  for  you  to  make  your  move. 

Mouse  Magic 

As  you  might  expect,  moves  may  be 
made  with  the  Amiga  mouse  or  by  typ- 
ing them  in  the  conventional  manner. 


although  the  mouse  can  be  used  for 
almost  ail  communication.  For  ex- 
ample, it's  possible  to  move  through 
the  house,  examine  objects,  and  even 
find  the  key  inside  the  cookie  jar  by 
using  only  mouse  control.  But  to  use  the 
key  to  unlock  the  door  to  the  lab,  you'll 
have  to  type,  "unlock  door." 

In  using  mouse  control,  you  click 
on  one  of  the  eight  icons.  (It  will  be 
obvious  that  the  picture  of  an  eye 
means  "look"  or  "examine.")  As  you 
click  on  it,  the  operative  verb  appears  in 
the  text  area  just  where  you  would  have 
typed  it,  and  the  flashing  cursor  tells 
you  the  parser  is  waiting  for  you  to 
complete  the  command.  Assuming  you 
are  in  the  kitchen,  move  your  pointer 
into  the  graphic  scene  and  click  on  the 
cookie  jar.  A  key  appears,  floating  in 
midair,  and  the  text  area  indicates  that 
you  see  a  key.  To  take  the  key  it  is  not 
necessary  to  click  on  the  "take"  icon; 
simply  click  on  the  key  and  it  will  be 
added  to  your  inventory. 

Similarly,  should  you  at  any  point 
in  the  game  need  to  reexamine,  use,  or 
drop  an  object,  you  may  do  so  by  click- 
ing on  its  picture  in  the  inventory  file. 

It  is  in  this  method  of  mouse  com- 
munication that  Tass  Times  moves  a 
great  stride  beyond  other  parsers  and, 
in  doing  so,  speeds  up  the  game.  An- 
other benefit  is  this:  Although  the 
graphics  are  superb  and  even  fine  detail 
is  rendered  well,  there  may  be  times 
when  you  wish  to  examine  an  object  for 
which  you  have  no  name.  In  most 
games,  you  might  need  to  type  several 
guesses.  Here,  point  at  it  and  click.  If  it 
is  important  to  the  game,  it  will  be 
identified  for  you. 

Nor  does  this  method  affect  your 
interaction  with  the  parser,  for  it  is  only 
your  own  moves  that  are  being  auto- 
mated. Do  something  stupid,  and  you'll 
receive  the  same  acid  reply  as  if  you 
had  typed  in  the  stupid  move. 

Anyway,  you  have  the  key  and 
you've  unlocked  the  lab.  There  you  find 
a  fishbowl  full  of  guitar  picks  and  a 
large  loop  that  seems  to  be  connected  to 
the  generator.  As  you  turn  on  the  gen- 


Tass  Times  In  Tonetown  from  Activi- 
sion features  a  colorful  graphics 
interface. 


erator,  a  strange  humming  fills  the 
room.  Spot  leaps  through  the  hoop  and 
disappears.  You  follow  him  and  find 
yourself  in  Tonetown. 

So  far,  that's  not  giving  away  much 
of  the  game,  and  it's  all  you're  going  to 
get.  Well,  one  more  thing:  Spot's  name 
is  now  Ennio,  and  he's  capable  of 
speech.  Listen  to  him,  for  he  has  been 
here  before,  and  although  he  talks  like  a 
human  he  still  retains  certain  dog  in- 
stincts that  can  aid  you  in  your  search 
for  Cramps. 

As  stated  before,  the  graphics  are 
excellent.  As  you  move  from  one  room 
to  the  next,  the  scene  changes  quickly 
in  what  is  best  described  as  a  very  fast 
dissolve.  Sound,  from  the  hum  of  the 
generator  to  the  rock  band  in  TonetouTi, 
is  very  good,  using  the  two-channel  fea- 
ture of  the  Amiga.  More  to  the  point,  if 
no  sounds  are  appropriate  to  the  scene, 
then  there  are  no  sounds. 

Documentation  consists  of  a  book 
that  defines  the  controls  and  a  copy  of 
the  Tonetown  Times.  A  careful  reading 
of  the  newspaper  is  essential,  for  you've 
involved  yourself  in  much  more  than  a 
search  for  Cramps.  Other  things  have 
been  happening  in  Tonetown,  many  of 
them  instigated  by  the  evil  Franklin 
Snarl,  and  you  seem  to  be  a  catalyst. 

Further,  you'll  find  that  both 
Cramps  and  Ennio/Spot  have  been 
here  before  and  are  held  in  high  regard. 
You,  on  the  other  hand,  are  invariably 
referred  to  as  a  "stupid  tourist,"  and, 
until  you  can  shed  that  image,  you're 
going  to  feel  handicapped.  Your  cloth- 
ing and  the  way  you  talk  are  dead 
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giveaways.  Until  you  discover  the  ul- 

tratouch  way  to  ultratass,  you're  going 
to  look  like  a  tourist;  and  until  you  learn 
the  Tonetown  dialect,  you're  going  to 
sound  like  one. 

Get  tone  quick,  for  you  don't  have 
that  many  moonal  periods  in  which  to 
find  Cramps.  And  if  you  don't,  you 
may  find  yourself  in  the  position  of 
Jonboi  Waltune,  who  recently  had  to 
leave  town  after  being  cited  for  aggra- 
vated tonelessness. 

Tass  Times  In  Tonetown 

Activision 

2350  Bayshore  Frontage  Rd. 

Mountain  View,  CA  94043 

$34.95  Commodore  64  version 

$39.95  Apple  11  series  and  IBM  PC  and 

compatibles  versions 

$44.95  Amiga,  ST,  and  Macintosh 

versions 


Attention  Programmers 

COMPUTE!  magazine  is  currently 
looking  for  quality  articles  on 
Commodore,  Atari,  Apple, 
and  IBM  computers  (including 
the  Commodore  Amiga  and 
Atari  ST).  If  you  have  an 
interesting  home  application, 
educational  program, 
programming  utility,  or  game, 
submit  it  to  COMPUTEI,  P.O. 
Box  5406,  Greensboro,  NC 
27403.  Or  write  for  a  copy  of 
our  "Writer's  Guidelines." 


AN  OPPORTUNITY 
UNLIKE  ANY  OTHER 


The  nation's  largest  computer 
camp  offers  all  traditional  camping 
activities  and  camaraderie  in  a 
beautiful  setting.  Your  ctiild  will  have 
exclusive  use  of  a  major  brand 
microcomputer  for  at  least  6  hours 
every  day. 

An  experienced  staff  ratio  of  one  to 
three  and  a  computer  ratio  of  one  to 
one  uncaps  the  creativity  of  young 
people.  Students  receive  hands-on 
experience  in  robotics,  graphics, 
lasers,  sound,  languages,  telecom- 
munications and  more. 

Complete  details  on  the  1,  2,  4,  ar\d 
8  week  coed  sessions  for  ages  8-18 
are  available  in  a  free  brochure.  Call 
or  vi/rite  lor  yours! 

Call  (317)  297-2700  or  write  lo 

MIDWEST  COMPUTER  CAMP 

9392  Lafayette  Road,  Unit  C4,  indisnapolis,  IN  4627B 


Airheart  For  The  Apple  II 


James  V.  Trunzo 

Requirements:  Apple  Il-series  computer 
with  a  minimum  of  128K;  joi/stick  and 
color  monitor  required. 

A  quick  look  at  current  entertainment 
software  available  for  the  Apple  ll-series 
computer  systems  certainly  indicates 
the  trends  that  have  developed  over  the 
last  year  or  so.  More  elaborate  dungeon 
games,  increasingly  realistic  wargames, 
and  super-sophisticated  text  adven- 
tures claim  all  the  top  spots  on  most 
bestseller  lists.  Ironically,  the  genre  that 
started  the  computer  entertainment 
craze,  the  arcade  game,  is  not  repre- 
sented. But  Broderbund's  latest  game 
may  change  all  that. 


^m§P 
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Airheart  from  Brederbund  mixes  action 
and  strategy  in  a  game  with  excellent 
color  graphics. 


Airheart,  a  stunning  graphics 
arcade  adventure  game,  challenges  both 
your  sbrategic  skills  and  your  hand-eye 
coordination  just  as  well  as  any  of  its 
illustrious  predecessors.  Designed  by 
Dan  Gorlin  of  Chopiifter  fame,  this  state- 
of-the-art  arcade  game  udlizes  double 
hi-res  graphics  and  a  simple  task- 
oriented  approach  to  come  up  with  one 
of  the  best  arcade  games  in  years. 

Striving  for  the  title  of  the  legend- 
ary champion  Airheart,  you  must  prove 
yourself  worthy  both  of  the  name  and 
the  task  of  caring  for  the  infant  prince 
(who,  incidentally,  awaits  your  coming 
in  a  state  of  suspended  animation).  To 
do  so,  you  must  use  your  highly  mo- 
bile, jet-powered  sled  to- overcome  the 
robotic  defenses  that  have  been  in- 
stalled to  insure  that  only  the  best  of 
warriors  succeed.  Spirit  guardians  will 
present  you  with  increasingly  difficult 
tasks:  You  must  retrieve  a  sword 
(strength),  a  goblet  (generosity),  and  a 
harp  (harmony)  before  earning  the  right 
to  enter  into  the  final  batrie.  Barring 
your  way  are  seven  types  of  robots,  each 
with  a  ciifferent  form  of  deadly  defense 


aimed  at  thwarting  your  efforts. 

These  various  robots  provide  Air- 
heart with  not  only  its  challenge  but 
also  with  its  variety.  Some  of  the  ro- 
bots, like  the  Bumper,  simply  harass 
you;  others,  like  the  Spitter,  may  de- 
stroy you  or  your  craft,  A  different  strat- 
egy is  needed  to  defeat  each  type  of 
robot,  and  only  a  steady  hand  and 
quick  thinking  allow  you  any  chance  of 
success.  All  the  robots  can  be  shot,  of 
course,  but  that's  only  half  the  battle. 
Once  you've  destroyed  a  robot,  you 
must  pick  up  the  Pod  that  remains,  or  it 
regenerates  into  a  new  robot  of  the  type 
just  destroyed. 

Topnotch  Graphics 
And  Animation 

As  mentioned  earlier,  Airheart  offers 
excellent  graphics  in  all  phases  of  the 
game.  The  animation  is  top-of-the-line 
stuff,  and,  each  time  you  play,  you'll 
notice  something  new  that  will  delight 
you.  Whether  it's  the  Spirit  Guardians 
casting  spells  over  you,  a  deadly  bubble 
encasing  you,  or  jet-sledding  under- 
water, the  details  that  have  gone  into 
the  graphic  rendering  of  the  action 
would  be  worth  the  price  of  the  pro- 
gram even  if  the  game  was  only  medio- 
cre— which  it  definitely  is  not.  V^/hat 
kind  of  graphics  surprise  awaits  the 
winner  of  the  game  I  can  only  guess  at, 
for  the  best  I've  been  able  to  do  is 
secure  the  sword  and  the  goblet. 

Airheart  contains  other  features, 
including  sound  effects,  a  vanity  score 
board,  and  so  on.  Additionally,  it 
should  be  noted  that  the  game  does 
require  128K  of  memory  and  a  joystick. 
Due  to  the  speed  and  sensitivity  of  the 
jet-powered  sled,  it's  easy  to  under- 
stand that  keyboard  control  would  not 
have  proved  sufficient  for  the  task  of 
guiding  the  sled. 

Airheart  proves  that  there  is  still 
room  for  arcade  games  in  the  software 
entertainment  field,  providing  that  in- 
genuity and  programming  skill  go  into 
the  product.  Both  of  these  elements  are 
aptly  presented  in  Airheart. 

Airheart 

Brederbund 

17  Paul  Dr. 

San  Rafael,  CA  94903-2101 

$34.95 
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Lance  Haffner  Games 


James  V.  Trunzo 

Requirements: 

3-In-l  Football — Apple  II  series,  Macin- 
tosh, Commodore  64,  Amiga,  Atari 
SOO/XL/XE,  Atari  ST,  and  IBM  PC  and 
all  compatible  computers. 

Basketball:  The  Pro  Game — Apple  11 
series.  Commodore  64,  Amiga,  and  IBM 
PC  and  compatibles. 

Final  Four  College  Basketball — Apple  11 
series,  Atari  800/XL/XE,  Commodore  64, 
Amiga,  and  IBM  PC  and  compatibles. 

Full  Count  Baseball — Apple  U  series, 
ivith  Commodore  64  and  IBM  and  compa- 
tibles available  by  April. 

A  printer  is  recommended,  but  not  required. 

Lance  Haffner's  statistical  sports 
games,  while  not  widely  known,  are 
excellent  entertainment  packages. 

Basketball:  The  Pro  Game,  Final  Four 
College  Basketball,  and  3-In-l  Football 
are  the  heart  of  the  game  line,  although 
by  the  time  this  review  goes  to  press,  a 
fourth  game.  Full  Count  Baseball,  will  be 
available.  There  are  also  a  variety  of 
utility  disks  available. 

The  first  three  programs  have 
many  features  in  common,  so,  before 
looking  at  each  product's  individual  at- 
tributes, let's  examine  the  similarities. 
The  games  are  statistically  oriented, 
and  there  are  no  frills,  such  as  flashy 
graphics.  Instead,  all  their  program- 
ming power  is  poured  into  reproducing 
accurately  played  contests  based  on  ac- 
tual player  and  team  statistics.  No  mat- 
ter which  game  you  are  playing,  it's 
obvious  that  the  emphasis  is  on  statis- 
tics. All  screens  keep  you  informed  of 
both  the  overall  stats,  on  which  each 
player's  performance  is  based,  and  on 
current  game  stats,  which  reflect  the 
actual  game  taking  place. 

Additionally,  in  keeping  with  this 
emphasis,  all  Lance  Haffner  games  let 
you  print  complete  game  stats  appro- 
priate to  the  sport  being  played  and 
then  compile  those  figures  for  one  or  all 
teams  being  used.  Whether  you  simply 
want  to  see  the  outcome  of  a  particular 
game  or  replay  an  entire  season.  Lance 
Haffner  software  allows  you  to  do  so. 

A  third  similarity  among  the  pro- 
grams is  the  ease  and  speed  of  play. 
Whether  you're  choosing  your  lineup, 
selecting  plays,  or  making  substitu- 
tions, you  have  complete  flexibility  and 
the  constant  aid  of  onscreen  instruc- 
tions. Football  games  can  be  played  in 
as  little  as  25  minutes,  while  basketball 
can  be  played  in  approximately  45  min- 
utes (due  to  the  greater  number  of  op- 
tions and  the  necessary  substitutions). 


Finally,  all  games  stress  user  par- 
ticipation. Even  with  their  statistical 
bent,  these  aren't  passive  programs 
(though  all  of  them  can  play  computer- 
versus-computer  contests,  if  you  wish). 

For  example,  3-In-l  Football  allows 
you  to  select  from  among  16  offensive 
plays  and  from  6  defensive  formations; 
the  basketball  games  constantly  de- 
mand that  the  user  choose  who  will  be 
handling  the  ball  and  what  he'll  do 
with  it  once  he  gets  it.  You  can  play 
against  the  computer  or  against  a  hu- 
man opponent,  and  the  enjoyment  lev- 
el is  top-notch  in  either  case.  Now  let's 
take  a  quick  look  at  each  game. 

Dream  Matchups 

3-In-l  Football  features  176  college 
teams,  28  NFL  teams,  and  14  USFL 
teams  from  the  most  recently  complet- 
ed season.  In  addition,  a  second  disk 
(included  with  the  game)  offers  the  user 
a  choice  of  174  great  college  teams  and 
189  great  pro  teams  of  the  past.  Watch 
Navy,  led  by  Roger  Staubach,  take  on 
Dan  Marino's  Pitt  Panthers.  Match  the 
1967  use  Trojans  against  the  defensive 
giants  of  the  1983  Nebraska  team — can 
OJ  Simpson  run  against  those  guys?  See 
if  the  Pittsburgh  Steelers'  Steel  Curtain 
can  contain  the  explosive  AFL  San  Diego 
Charger  greats  like  Keith  Lincoln  and 
John  Hadl. 

The  football  game  allows  you  to 
select  all  plays,  call  time-outs,  elect  to 
accept  or  decline  penalties,  go  for  two- 
point  conversions,  and  do  much  more. 
Individual  player  stats  are  provided  at 
half  time  and  at  the  conclusion  of  the 
game,  although  it  should  be  noted  that 
when  selecting  plays,  the  computer — 
not  the  user — determines  who  is  carry- 
ing, throwing,  or  receiving  the  ball. 
This  is  determined  by  the  actual  player 
stats  from  the  given  year  and  results  in 
very  accurate  statistics.  It  insures  that  a 
player  will  not  be  overused  and  that  a 
seldom-used  player  with  a  high  aver- 
age-yards-gained record  will  not  be 
used  in  every  crucial  situation.  This 
method  also  helps  speed  the  game 
along.  Individual  players  are  an- 
nounced with  each  play,  however,  and 
your  knowledge  of  a  team's  personnel 
will  dictate  your  play-calling. 

Final  Four  College  Basketball  and 
Basketball:  The  Pro  Game  offer  the  same 
exceptional  value  as  the  football  game. 
The  college  game  includes  292  teams 
from  the  1985-86  season  plus  70  all- 
time  great  teams.  Remember  the  classic 
matchup  between  the  Houston  Cou- 
gars, led  by  Elvin  Hayes,  and  the  UCLA 


Bruins,  led  by  Lew  Alcindor?  Replay 
that  contest  and  see  if  the  Cougars  can 
repeat  their  upset  victory.  Or  match 
Alcindor  against  Georgetown's  Patrick 
Ewing. 

The  Pro  game  features  alt  23  NBA 
teams  from  the  most  recently  complet- 
ed season  and  throws  in  100  great 
teams  of  the  past.  Bill  Russell's  Celtics 
can  go  head-to-head  against  West, 
Chamberlain,  and  Baylor  of  the  Lakers. 

In  either  game,  you  select  who  will 
take  the  shot,  who  will  pass  the  ball, 
who  will  intentionally  foul,  and  who 
will  be  fouled.  Starting  line-ups  are 
yours  to  determine,  but,  more  impor- 
tantly, it's  your  coaching  throughout  the 
game  that  will  determine  the  outcome. 
It's  an  absolute  must  that  you  substitute 
wisely  and  timely.  Leave  a  tired  player 
in  the  game  too  long  and  he'll  become 
exhausted  and  be  of  no  use  for  the  re- 
mainder of  the  game.  Ignore  the  number 
of  fouls  on  a  player,  and  it's  certain  that 
he'll  watch  the  rest  of  the  contest  from 
the  bench.  On-screen  stats  give  you  the 
percentage  chance  of  each  shooter  with 
each  potential  shot.  Players  are  rated  for 
their  ability  to  rebound,  pass,  shoot,  and 
play  defense. 

Other  features?  In  the  Pro  game, 
you  can  elect  to  play  with  the  three- 
point  shot.  In  the  college  game,  you  can 
play  with  or  without  a  45-second  shot 
clock.  In  either  game,  you  select  the 
type  of  team  defense  you  wish  to  play, 
the  type  of  offense,  whether  to  press 
after  a  basket,  and  much  more.  Home 
court  advantage  is  built  into  the  games, 
based  upon  home  and  away  records. 
Competition  between  teams  in  the  col- 
lege game  takes  into  consideration  the 
strength  of  a  team's  schedule  and  con- 
ference to  insure  realism  and  accuracy. 

It's  obvious  from  the  preceding 
information  that  I'm  sold  on  these 
products.  Sure,  it  would  be  nice  if  fancy 
graphics  enhanced  the  programs,  but 
for  those  of  us  who  like  realism  and  the 
ability  to  play  complete  seasons.  Lance 
Haffner  game  programs  are  hard  to  beat. 

All  Lance  Haffner  games  come 
with  a  stat  compiler  and  a  report  gener- 
ator, plus  more  teams  than  you'll  use  in 
a  lifetime.  The  S39.95  price  for  each 
program  is  an  excellent  value,  especially 
considering  all  that  you  get.  New  team 
disks  are  available  each  year  for  $12.99. 

Lance  Haffner  Games 
P.O.  Box  100594 
Nashville,  TN  37210 
$39.95  each 
Amiual  team  disks:  $12.99 
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Instant  Music  For  The  Amiga 


Neil  Randall 

Instant  Music  from  Electronic  Arts 
breaks  new  ground  in  computer  enter- 
tainment software.  Not  only  does  it 
encourage  the  nonmusician  to  play  mu- 
sic, it  makes  playing  music  easy-  Only 
minutes  after  loading  the  program, 
anyone — no  matter  how  little  musical 
training  he  or  she  has — can  be  playing 
along,  creating  music  that  has  no  choice 
but  to  sound  good.  The  Amiga's  mouse 
becomes  the  instrument,  playing  what- 
ever instrument  the  player  chooses  in 
key,  in  tempo,  and  in  tune  with  the  rest 
of  the  song. 

Of  course,  there  are  those  who 
think  that  music — like  all  art — should 
be  tough,  because  only  the  most  exact- 
ing standards  allow  us  to  understand 
the  sheer  importance  of  creative  expres- 
sion. To  that  end,  such  purists  would 
suggest  that  playing  a  musical  instru- 
ment is  something  to  be  perfected  over 
years  of  study,  after  which  point  we  are 
free  to  compose  and  experiment  on  our 
own,  Nobody,  not  even  the  designer  of 
Instant  Mvsic,  would  disagree  with  that. 
What  he  would  disagree  with,  how- 
ever, is  the  notion  that  only  music 
scholars  should  be  allowed  the  joy  of 
musical  performance. 

Unique  Notation 

When  Instant  Music  appears,  the  screen 
shows  a  unique  and  colorful  display. 
Immediately  noticeable  is  the  actual 
music  display,  or  score  window,  that 
occupies  the  majority  of  the  picture. 
The  musical  notation  for  Instant  Music, 
unlike  any  other  music  program  1  have 
seen,  is  not  standard.  Instead  of  the 
usual  staffs,  quarter  notes-,  half  rests, 
naturals,  and  so  on,  Instant  Music  dis- 
plays its  music  as  a  series  of  squares  or 
bars.  The  notation  for  each  instrument 
(four  appear  at  once)  is  colored  differ- 
ently, so  that  you  can  tell  at  a  glance 
which  instrument  you  currently  con- 
trol. If  the  electric  guitar  is  in  green,  for 
instance,  you  can  see  how  its  notes 
ascend  and  descend  by  watching  the 
cursor  roll  by  the  sequence  of  green 
squares  and  bars  that  make  up  the  gui- 
tar's "notes."  The  display  itself  is  divid- 
ed into  eight  bars,  and  you  can  view  all 
eight  at  once,  or,  by  using  the  zoom  bar, 
you  can  look  at  as  few  as  you  wish. 

Below  the  display  are  the  four  in- 
strument boxes,  showing  the  instru- 
ments currently  used  for  the  song.  Each 
box  contains  the  name  of  the  instru- 
ment, a  bar  to  adjust  that  instrument's 
volume,  and  a  button  that  allows  you  to 
get  rid  of  that  instrument's  notation 
from  the  viewscreen.  By  clicking  on  any 
of  the  instruments,  you  can  either  play 


that  instrument,  change  its  notation  in 
the  score  window,  or  select  a  different 
instrument. 

Above  the  score  window  is  the 
scroll  bar,  which  allows  you  to  scroll 
ahead  or  back;  the  tempo  bar,  with 
which  you  speed  up  or  slow  down  the 
music;  the  zoom  bar;  and  a  chord  con- 
trol. The  chord  control  allows  you  to 
select  one-,  two-,  or  three-note  chords 
for  the  instrument  you  are  working 
with.  I  have  found  that  a  three-note 
drum  adds  volume  and  weight  to  the 
drum  beat,  while  a  two-note  guitar 
places  one  note  on  each  stereo  channel. 
Also  on  this  line  above  the  score  win- 
dow are  the  QuickDraw  and  Mousejam 
selection  buttons,  and  the  button  that 
stops  and  starts  the  music. 

Instant  Music  opens  with  a  song 
already  playing.  The  instruments  make 
full  use  of  the  Amiga's  built-in  sound 
capabilities,  and  many  of  them  sound 
digitized.  Four  instruments  play  at  once, 
with  many  combinations  possible.  Elec- 
tric piano,  drums,  electric  bass,  strings, 
saxophone,  trumpet,  pipe  organ,  elec- 
tric guitar,  vibes,  accordian,  steel 
drums — the  choices  are  plentiful.  One 
of  the  first  things  you  will  want  to  do, 
after  listening  for  a  moment  to  the  song 
itself,  is  to  change  the  instrumentation. 

To  do  so,  you  simply  move  the 
mouse  pointer  to  the  bottom  of  the 
screen,  where  the  instruments  are 
shown,  and  click  the  one  you  want  to 
get  rid  of.  Then  you  move  to  the  menus 
at  the  top  of  the  screen  and  select  from 
three  lists  of  instruments.  When  you 
have  chosen  the  one  you  want,  the 
program  loads  that  instrument  in,  and 
the  song  now  uses  it  in  place  of  the 
original  instrument. 

The  MouseJam 

There  are  several  ways  of  making  music 
with  Instant  Music.  The  first,  and  by  far 
the  most  fun,  is  the  Mousejam.  In  this 
mode,  you  press  the  left  mouse  button 
as  the  music  plays,  and  move  the 
mouse  up  and  down.  You  are  now  play- 
ing your  chosen  instrument.  Moving 
the  mouse  downwards  lowers  the 
notes,  while  pushing  it  up  raises  them. 
Instant  Music  will  not  let  you  stray  from 
the  chords  or  the  rhythm  of  the  song 
unless  you  specify  that  you  want  to,  so 
everything  you  play  will  be  musically 
competent,  occasionally  even  musically 
brilliant. 

After  you  have  tried  your  hand  at 
playing  lead,  adding  bass,  or  drum- 
ming, to  every  song  on  the  disk,  you 
will  want  to  experiment  a  bit.  To  add  to 
your  flexibility  as  a  musician,  instant 


Music  allows  you  to  move  beyond  the 
standard  rhythm  of  the  piece  to  either 
"keypad  rhythm"  or  "free  rhythm,"  To 
use  keypad  rhythm,  you  press  any  key 
on  the  numeric  keypad;  each  key  offers 
a  rhythm  different  from  the  original. 
The  8  key,  for  instance,  offers  a  beat  off 
the  normal  syncopation  of  the  tune, 
while  the  6  key  presents  a  driving 
rhythm  especially  effective  at  higher 
volumes.  The  rhythms  work  for  any 
instrument  you  choose.  Free  rhythm,  as 
its  name  suggests,  allows  you  to  choose 
your  own  beat,  completely  from  scratch. 
While  this  mode  offers  the  greatest 
originality,  it  also  allows  you,  unlike 
the  other  rhythms,  to  make  mistakes. 

Mousejam  is  not  the  only  way  to 
make  music,  though.  With  QuickDraw, 
you  can  not  only  play  your  own  lead 
line,  you  can  also  record  the  changes  to 
the  original.  The  procedure  is  very  sim- 
ple. All  you  do  is  drag  the  mouse  across 
the  screen  for  a  chosen  distance,  going 
up  or  down  on  an  angle  as  you  choose. 
In  this  way,  you  will  change  the  ap- 
pearance of  that  instrument's  track  on 
the  screen,  and  when  the  cursor  gets 
around  to  that  position,  it  will  play  the 
new  notes  instead  of  the  old.  Once 
again,  the  program  keeps  your  changes 
within  the  pitch  and  rhythm  guides  for 
that  song. 

The  menus  for  the  program  allow 
considerable  flexibility  in  editing  and 
arranging  compositions.  Perhaps  the 
most  interesting  menu  is  the  Draw 
menu,  which  contains  such  commands 
as  Rhythm  Guide  and  Scale  Ruler. 
When  you  select  Scale  Ruler,  the  left 
and  right  sides  of  the  Score  Window 
open  up  to  reveal  a  small  musical  key- 
board and  several  other  bits  of  infor- 
mation. Now  as  you  play  the  music, 
you  can  watch  the  names  and  keyboard 
positions  of  the  notes  change.  This 
information  helps  you  compose  your 
own  songs.  The  Rhythm  Guide  lets  you 
change  the  rhythm  of  the  song,  allow- 
ing such  rhythmic  variations  as  1/4, 
1/8,  1/8  triplet,  1/16,  and  multiples  of 
the  current  rhythm.  Although  the  Draw 
menu  takes  practice  to  get  used  to,  it 
greatly  increases  your  ability  to  control 
the  music. 

Instant  Music  offers  much  more 
than  what  is  described  here,  but,  until 
you  actually  use  the  program,  most  of 
its  features  won't  mean  much.  Instant 
Music  is  so  different  from  any  other 
available  music  programs  that  it  really 
must  be  seen  to  be  believed.  For  those 
who  want  to  turn  up  the  volume  and 
blast  away  at  an  electric  guitar  with  a 
prerecorded  band,  this  is  an  indispensi- 
ble  program.  For  those  who  want  to 
compose  music  that  sounds  good,  but 
does  not  demand  a  thorough  knowl- 
edge of  music  theory.  Instant  Music  al- 
lows that,  too.  And  for  those  who  are 


Apiil  1987     COMPUTEI      67 


learning  a  band  instrument,  and  who 
hate  practicing  without  the  backing  of 
the  rest  of  the  band.  Instant  Music  is  just 
the  thing. 

Thanks  to  this  program,  I've 
picked  up  my  electric  guitar  again  and 
am  quickly  relearning  all  those  licks  I'd 
forgotten  several  years  ago.  With  a 
band  at  my  command,  playing  whatev- 
er song  I  want  them  to,  I  can  crank  up 
my  Fender  and  let  fly  with  whatever 
my  fingers  are  willing  to  give.  Unlike  a 
real  band,  nobody  complains  about  the 
mistakes,  and  nobody  gets  impatient 
when  I  ask  for  the  same  song  to  be 
played  for  the  twenty-second  time.  An 
excellent  program,  Instant  Music  offers 
pure  fun.  Besides  the  fun,  it  teaches 
music,  even  to  those  who  know  noth- 
ing to  begin  with.  !n  other  words.  In- 
stant Music  allows  you  to  expand  your 
horizons,  and  that,  in  my  opinion,  is 
what  computers  are  all  about. 

Instant  Music 
Electronic  Arts 
1820  Gateway  Dr. 
San  Mateo,  CA  9U04 
$49.95 
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The  SoundMouse 

Rhett  Anderson 

Requirements:  Any  eight-bit  Atari  com- 
puter with  at  least  48K  and  a  disk  drive. 


The  SoundMouse  is  a  small  peripheral 
box  that  plugs  into  the  first  joystick  port 
of  any  Atari  eight-bit  computer  with  at 
least  48K  and  a  disk  drive.  Surprisingly, 
it  adds  a  large  range  of  capabilities  to 
your  computer. 

The  Hardware 

The  SoundMouse  is  called  a  mouse 
simply  because  it  looks  like  a  mouse 
that  plugs  into  the  Amiga,  Atari  ST,  and 
Apple  computers.  But  it's  not  motion 
that  drives  this  mouse — it's  sound.  To 
give  your  Atari  an  ear,  just  plug  this 
sturdy  little  piece  of  hardware  into  the 
first  joystick  port.  The  computer  reads 
the  SoundMouse  as  if  it  were  a  game 
paddle,  so  it's  easy  to  write  programs 
that  use  the  SoundMouse,  no  matter 
what  language  you  wish  to  use.  The 
SoundMouse  is  partial  to  low-frequency 
sounds,  responding  well  to  a  clap  or  a 
thump,  but  ignoring  a  whistle. 

The  Software 

When  you  boot  up  the  disk  that  comes 
with  The  SoundMouse,  you  select  from 
three  options:  the  Graphics  Menu,  the 
Games  Menu,  and  the  SoundMouse 
Band.  The  Graphics  Menu  lets  you  syn- 
chronize computer  graphics  with  music 
that  you  play  on  your  stereo.  The 
Games  Menu  offers  a  selection  of 
sound-controlled  games.  The  Sound- 
Mouse  band  is  a  trio  of  computer- 
drawn  musicians  that  appear  to 
perform  the  music  you  play. 

There  are  ten  games  from  which  to 
choose.  Some  of  them  aren't  really 
games,  though.  One  checks  the  speed 
of  your  reactions  and  one  just  draws  a 
foot  on  the  screen  every  time  you  make 
a  noise.  But  the  real  games  are  well 
done.  The  author  of  these  programs 
clearly  knows  the  capabilities  of  the 
Atari.  "Bugsquasher,"  in  which  you 
pulverize  small  insects  by  making  loud 
sounds,  was  my  favorite.  The  games 
can  be  played  in  a  variety  of  ways — by 
tapping  on  the  table  where  the  Sound- 
Mouse  rests,  by  tapping  on  the  Sound- 
Mouse  itself,  by  snapping  your  fingers, 
or  by  shouting.  Because  the  Sound- 
Mouse  is  partial  to  low-frequency 
sounds,  it  appears  to  be  a  bit  of  a  chau- 
vinist— while  I  can  shout  from  across 
the  room  to  squash  a  bug,  the  Sound- 
Mouse  turns  a  deaf  ear  to  my  wife's 
loudest  and  lowest  shouts,  so  she  plays 
by  clapping  her  hands.  One  game, 
"Soundman"  (a  Pflc-MflM-style  game  in 


which  you  turn  corners  by  making 
sounds),  is  so  difficult  that  I  can  get  a 
higher  score  by  playing  a  radio  next  to 
the  SoundMouse  than  by  playing  the 
game  myself. 

If  you  program  your  own  games 
you'll  have  no  problem  making  the 
computer  respond  to  sounds.  The  man- 
ual describes  programming  the  Sound- 
Mouse  in  a  special  section  near  the  end. 
All  Atari  languages  I'm  aware  of  are 
capable  of  using  the  SoundMouse. 
There  are  other  possible  applications 
for  the  SoundMouse,  and  the  ease  of 
programming  the  peripheral  makes  ex- 
perimentation easy. 

Another  option  on  the  menu,  the 
SoundMouse  Band,  is  disappointing.  A 
drummer,  a  lead  guitarist,  and  a  key- 
board player  made  a  shallow  attempt  at 
playing  some  of  my  favorite  songs.  For- 
tunately, the  third  menu  option,  the 
Graphics  Menu,  is  a  genuine  prize. 

The  SoundMouse  manual  states 
that  the  programs  included  in  the 
Graphics  Menu  are  like  color  organs — a 
fad  of  the  early  seventies.  They  came  in 
two  varieties:  one  plugged  into  your 
stereo  like  a  speaker  and  the  other  was 
accompanied  by  its  own  little  micro- 
phone. Color  organs  had  two  or  three 
colored  light  bulbs  that  turned  on  and 
off  in  time  with  the  music. 

The  Graphics  program  that  comes 
with  the  SoundMouse  is  like  a  high- 
resolution  color  organ  that  uses  the 
SoundMouse  as  a  microphone.  Patterns 
bounce,  dance,  and  explode  across  the 
screen  in  a  variety  of  changing  colors. 
You've  probably  never  seen  anything 
like  this.  You  can  even  program  your 
own  light  shows.  The  display  moves  to 
low- frequency  sounds — drums  and  bass, 
mostly — so  the  manual  recommends 
rock-and-roll  music,  but  jazz  and  a  few 
classical  pieces  worked  as  well  for  me. 
On  the  basis  of  the  Graphics  Menu 
programs,  and  the  potential  for  use  in 
my  own  programs,  I  believe  that  the 
SoundMouse  is  an  unique  and  excep- 
tional peripheral. 

SoundMouse 

Soundsojt 

Box  740,  10  Maple  Ave. 

Andover,  NJ  07821 

$29.95  (plus  $2  shipping  and  handling) 
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The  Beginner's  Page 


C,  Regeno 


Odds  And  Ends 


Here  are  a  couple  of  questions 
about  BASIC  programming  that  I 
have  recently  received  in  the  maU. 

Q.  "What  is  the  REM  statement?" 

A.  REM  is  the  BASIC  word  for  "re- 
mark," This  statement  can  be  used 
as  an  explanation  to  someone  read- 
ing a  listing  of  the  program.  When 
the  program  runs,  the  computer  ig- 
nores it.  For  example,  I  often  use  a 
REMark  as  the  first  line  of  a  pro- 
gram to  indicate  the  title  of  the 
program,  You  may  also  add  an  au- 
thor's byline,  address,  or  other 
information  about  the  program: 

100  REM  EXAMPLE  TITLE 
110  REM  BY  REGENA 

As  you  are  creating  a  program, 
you  may  want  to  use  lots  of  REM 
statements  to  help  you  keep  track 
of  different  sections  of  your  pro- 
gram. This  is  a  way  to  document  or 
annotate  your  program  and  to  write 
reminders  to  yourself  as  you  are 
programming.  You  may  want  to  la- 
bel your  subroutines  or  the  major 
sections  of  a  program,  or  you  may 
want  to  give  expanations  for  partic- 
ular programming  sequences  or 
equations.  Some  examples  are: 

200  REM  DRAW  TITLE  SCREEN 
300  REM  PRINT  INSTRUCTIONS 
400  REM  START  GAME 
500  REM  SUBROUTINE  TO  SHOOT 

ALIEN 
600  REM  SUB  TO  CHECK  POSITIONS 

Some  computers  use  an  apos- 
trophe or  an  exclamation  point  as 
an  abbreviation  for  REM. 

Many  programmers  believe  it 
is  wise  not  to  GOTO  or  GOSUB  to  a 
REMark  statement.  (For  example, 
use  line  500  for  the  REMark  to  label 
the  subroutine  to  shoot  an  alien, 
but  actually  start  the  subroutine  in 
line  510,  or  the  very  next  line.)  One 
reason  to  avoid  using  GOTO  or 
GOSUB  to  a  REM  is  that  if  you  later 
delete  the  REMark  statement,  you 
won't  have  to  remember  all  the 


places  where  you  referred  to  that 
line  number.  In  using  published 
programs,  readers  often  don't  type 
in  REM  statements;  this,  too,  would 
be  a  problem  if  that  skipped  line 
were  referenced  elsewhere. 

In  general,  it  is  a  good  idea  to 
use  REM  statements  in  your  pro- 
gram while  you  are  working  on  it  or 
if  anyone  else  will  be  trying  to  in- 
terpret your  programming  tech- 
niques. It  is  easier  to  modify  or 
correct  a  program  that  has  REM 
statements  because  you  can  quickly 
locate  its  various  sections. 

A  couple  of  readers  have  asked 
me  why  I  don't  use  REMark  state- 
ments in  my  programs,  probably 
because  another  magazine  that 
publishes  programs  insists  that  all 
explanations  be  within  the  program 
in  REM  statements,  I  choose  in- 
stead to  describe  my  programs  in 
their  accompanying  articles  or  to 
include  a  line-by-line  description 
with  the  programs.  Also,  I  don't  use 
a  lot  of  REM  statements  because  a 
lot  of  my  early  computer  work  was 
on  computers  with  limited  memory 
(such  as  the  VIC-20  or  the  MC-10), 
and  REM  statements  use  valuable 
memory  [and  valuable  magazine 
space  —  Ed].  I  got  used  to  program- 
ming without  REMs.  But  even  if 
you  don't  have  to  worry  about 
memory  constraints,  a  program  will 
run  faster  if  it  is  shorter. 

Q.  "After  typing  in  a  program  and 
trying  to  RUN  it,  I  get  a  SYNTAX 
ERROR  message.  What  is  the 
problem?" 

A.  SYNTAX  ERROR  is  one  of  the 
most  common  error  messages.  It 
usually  means  that  a  BASIC  word  is 
spelled  or  used  incorrectly.  The  first 
thing  to  do  is  to  check  each  word  in 
that  line  to  make  sure  it  is  spelled 
right. 

A  syntax  error  may  also  indi- 
cate an  incorrect  number  of  paren- 
theses, unmatched  parentheses,  or 


parentheses  which  are  not  in  the 
right  places.  Or,  you  could  have  an 
incorrect  number  of  parameters 
(numbers  separated  by  commas). 
For  example,  the  CIRCLE  com- 
mand needs  a  horizontal  coordi- 
nate and  a  vertical  coordinate  for 
the  center,  plus  a  radius.  If  you 
forget  to  specify  a  radius,  you  will 
get  a  syntax  error.  In  this  example, 
you  also  need  to  use  parentheses  in 
the  right  places  and  put  the  num- 
bers in  the  right  order — different 
computers  have  different 
requirements: 

CIRCLE  120,100,50       Atari  ST 
CIRCLE  (120,100),50     IBM,  Amiga,  and 
others 

The  manual  that  comes  with 
your  computer  (or  with  BASIC) 
should  have  a  list  of  other  error 
messages  or  error  codes.  Some 
computers  give  an  error  code  num- 
ber that  you  look  up  in  the  manual; 
others  give  a  short  error  message. 
However,  most  manuals  provide 
explanations  for  the  various  errors. 

One  kind  of  error  message  is 
particularly  perplexing,  however, 
because  the  program  line  to  which 
it  refers  isn't  actually  the  culprit.  If 
you  have  DATA  statements  in  your 
program,  the  error  message  may 
refer  to  a  different  line  number,  but 
the  error  is  actually  in  a  DATA 
statement.  Make  sure  that  you  have 
the  right  number  of  commas  among 
your  data,  ® 
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Computers  and  Society 

Dovid  D  Thornburg,  Associate  Editor 


A  Meeting  With  An  Ex-Pirate 


A  recent  flurry  of  articles  and  legal 
opinions  on  software  copyrights 
were  piling  up  on  my  desk.  The 
more  I  read,  the  more  confused  I 
got.  "How  can  I  make  some  sense 
out  of  this?"  I  asked. 

The  answer  was  obvious — 
once  again  it  was  time  to  start  a  trek 
up  the  side  of  the  Santa  Cruz 
mountains  near  Silicon  Valley  to 
visit  the  intrepid  software  pirate, 
Long  John  Silicon.  The  last  time  I 
had  seen  Long  John  (COMPUTE!, 
February  1982),  he  was  actively  en- 
gaged in  software  piracy.  If  anyone 
knew  how  to  sort  out  my  confusion, 
he  would. 

Armed  with  my  climbing  gear 
and  a  few  days'  supply  of  food,  I 
started  towards  my  goal.  After 
hours  of  climbing  through  the  poi- 
son oak  and  wild  berries,  I  could 
see  the  opening  to  his  cave  looming 
above  me.  As  I  drew  nearer  I  could 
make  out  a  sign:  "THIS  ENTRANCE 
IS  CLOSED.  PLEASE  ENTER 
THROUGH  THE  FRONT  DOOR." 

This  was  strange — the  last 
time  I  had  come  here,  this  had  been 
the  only  entrance.  I  climbed  to  the 
top  of  the  mountain  and  saw  that  a 
freeway  exit  had  been  created  to 
bring  people  to  a  large  parking  lot 
in  front  of  a  stunning  building.  A 
heliport  on  the  building's  roof  had  a 
steady  stream  of  traffic,  and  I  felt 
out  of  place  in  my  climbing  gear. 
The  building  was  teeming  with 
people  in  three-piece  suits.  The  sign 
on  the  building  said  "Long,  John, 
and  Silicon,  Copyright  Law,"  There 
were  two  entrances  to  the  building, 
one  marked  "Sue-ers"  and  the  oth- 
er marked  "Sue-ees."  I  picked  Sue- 
ers  and  went  inside. 

I  presented  myself  to  the  re- 
ceptionist and  started  to  tell  her  I 
had  an  appointment  to  see  Long 
John.  Just  then,  he  appeared  in  the 
lobby:  "Ahoy  there,  matey !"■■","  he 
shouted. 

I  looked   up   to   see   my   old 


friend,  the  pirate.  He  still  wore  his 
eye  patch,  and  he  had  a  sword 
strapped  to  his  waist,  but  even  he 
was  wearing  a  three-piece  suit. 

"Ahoy  there,  matey,"  I  shout- 
ed back. 

Instantly  I  was  pinned  against 
the  wall  by  a  team  of  Trademark 
Police.  "Ah,"  said  Long  John,  "let 
the  laddie  go,  mates!  He  meant  no 
harm.  He  just  a  dinna  know  that 
'Ahoy  there  matey'''"'  is  a  registered 
trademark  of  Long,  John,  and 
Silicon." 

Needless  to  say,  by  the  time  I 
was  seated  in  his  office  I  was  quite 
disoriented.  What  follows  is  our 
interview. 

The  Interview 

DT:  Tell  me  what  this  new  business 
of  yours  is  all  about!  The  last  time  I 
visited,  you  were  in  the  software 
copying  business — now  you  have  a 
law  firm. 

LJS:  Aye,  'tis  true,  I  have  changed. 
Ah  laddie,  there  is  no  money  in 
software  copyin'  any  more.  The  real 
money  is  in  litigation.  I  tell  you,  it's 
enough  to  make  you  hang  up  your 
disks. 

DT:  Are  you  telling  me  you  have 
become  a  lawyer? 
LJS:  Oh  no,  I  have  too  much  pride 
for  that.  But  I  did  form  a  law  firm 
with  two  partners,  Long  and  John. 
DT:  How  did  you  pick  them? 
LJS:  Well,  y'see,  I  had  a  lot  of  statio- 
nery with  LJS  printed  on  it,  so  I 
picked  partners  whose  names 
would  fit. 

DT:  Now  that  I  have  regained  my 
composure,  why  don't  you  tell  me 
why  the  police  pinned  me  to  the 
wall  when  I  said,  "Ahoy  there 
matey!" 

LJS:  Ah  there  you  go  again!  'Tis 
enough  to  make  me  want  to  slit  you 
from  your  stack  to  your  index  regis- 
ter! You  left  out  the  ™ 
DT:  The  what? 


LJS:  The  '''".  The  sentence  "Ahoy 
there  matey'''""  is  a  trademark  of 
LJS,  Inc.  No  one,  not  even  you,  can 
use  this  sentence  without  our  ex- 
press permission. 
DT:  You  have  to  be  kidding! 
LJS:  Ah,  another  one!  We  used 
"You  have  to  be  kiddingl^""  in  a 
project  last  year.  I'm  sorry,  you'll 
have  to  say  something  else. 
DT:  Well,  let's  get  to  the  real  pur- 
pose of  my  visit.  1  just  read  a  few 
articles  about  user  interfaces  for 
some  of  the  newer  computers  like 
the  Maclntapple  that  said  that  the 
ideas  expressed  in  their  user  inter- 
face could  not  be  used  on  any  other 
computers. 

LJS:  'Tis  true,  laddie,  'tis  true.  We 
handled  that  case  ourselves,  'Tis 
enough  to  make  you  flush  your 
buffer,  the  way  people  think  they 
can  use  other  people's  ideas  when 
the  ideas  are  protected  by  copyright 
law. 

DT:  Well  wait  just  a  minute.  I'm  not 
a  lawyer,  but  I  recall  reading  some- 
where that  copyright  law  protects 
only  the  expression  of  ideas,  not  the 
ideas  themselves.  Furthermore,  if 
an  idea  is  indistinguishable  from  its 
expression,  that  is,  if  the  idea  is 
"merged"  into  its  expression,  the 
expression  cannot  be  protected  un- 
der copyright  laws.  To  my  feeble 
mind  this  means  that  if  I  write  a 
word  processor  program  that  in- 
cludes a  feature  to  translate  English 
into  Pig  Latin,  I  can  protect  the 
source  code  and  the  object  code  for 
this  program,  but  not  the  idea  of  a 
program  that  does  this  type  of 
translation. 
LJS:  It  depends. 

DT:  What  do  you  mean,  it  depends? 
LJS:  Well,  keepin'  in  mind  that  I'm 
not  a  lawyer  meself,  what  you  say 
may  be  true,  as  it  stands.  But  there 
is  another  level  between  the  pro- 
gram and  its  idea — there  is  the 
"look  and  feel"  of  the  program. 
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DT:  Oh,  by  look  and  feel  you  must 
mean  things  like  the  Range  Top 
interface  used  in  the  Maclntapple 
computer. 

LJS:  Exactly.  In  their  case  they  de- 
fined a  user  interface  around  the 
concept  of  a  kitchen.  The  main 
screen  has  a  stove  top  with  burners 
on  it.  Programs  look  like  pots  and 
pans,  and  documents  for  these  pro- 
grams look  like  plates.  To  start  a 
program  you  just  place  the  pan  on  a 
burner  and  click  on  the  spaghetti 
strainer.  To  throw  a  program  away, 
you  just  empty  the  pan  into  the 
disposal.  Now,  the  company  that 
designed  this  interface  has  a  copy- 
right on  the  source  code,  the  object 
code,  and  the  "gestalt"  or  feel  of  the 
interface.  Anyone  who  creates  a 
program  usin'  this  look  and  feel 
will  have  me  to  contend  with! 

At  that,  LJS  drew  his  sword 
and  threw  it  through  a  stack  of 
floppy  disks,  neatly  pinning  them 
to  the  wall  vrithin  six.  inches  of  my 
left  ear. 

DT:  Wait  a  minute,  friend — you're 

saying  that  copyright  protection  is 
not  limited  to  the  literal  aspects  of  a 
computer  program,  but  rather  that 
it  extends  to  the  overall  structure  of 
a  program,  including  its  audiovisu- 
al displays. 

LJS:  Ah,  'tis  a  pleasure  to  see  that 
your  monitor  is  startin'  to  warm  up, 
matey;  you've  got  the  truth. 
DT:  If  this  is  true,  then  why  limit 
this  to  programs?  Suppose  I  decide 
to  copyright  a  sentence  structure — 
say  a  sentence  form  that  has  an 
adjective-noun- verb -adjective- 
noun  form. 

LJS:  Oh,  like  "Green  frogs  eat  blue 
shoes?"  Sorry,  it's  already  copy- 
righted. We  handled  that  one,  too. 
DT:  Hold  on.  The  form  of  a  sen- 
tence seems  more  like  an  idea  than 
an  expression. 

LJS:  Not  really;  after  all,  you  could 
say  "The  green  frogs  eat  blue 
shoes"  and  you'd  be  OK  as  far  as 
we  are  concerned.  Since  there  are 
many  ways  of  expressin'  sentences 
in  this  form,  we  decided  to  try  to 
protect  the  form,  not  just  a  particu- 
lar sentence. 

DT:  What  is  this  going  to  do  for 
poets  and  other  writers? 
LJS:  Why  do  you  think  we  are  so 
busy!  The  reason  I  started  this  firm 


was  to  make  sure  that  anyone  who 
lifted  fingers  to  keyboard  or  pen  to 
paper  would  need  our  services. 
DT;  Isn't  that  going  to  stifle  creativ- 
ity in  this  country? 
LJS:  I'm  not  in  this  for  the  philoso- 
phy; I'm  in  it  for  the  money. 
DT:  Wait  a  minute'''",  I  think  you 
are  going  too  far  here©. 
LJS:  Look  matey^",  I've  tried  to 
make  an  honest  livin'  as  a  software 
pirate©  but  couldn't^"©,  so  now 
I've  had  to  compromise'''"  my  val- 
ues^"^©  and  work  to  defend  our 
way  of  life''''^. 

DT:  Your  way  of  life''""  seems©  to 
be  one  where©'^"  no  one  can  do 
anything  without  securing  your 
services  tm^tm^ 

LJS:  Sounds  good  to  me!'''" 
DT:  On  this  note'''"  I  left,  more 
confused  than  ever.  What  freedom 
do  software  developers  have  to  ex- 
pand on  ideas  for  programs  that 
they  see  elsewhere?  What  freedom 
will  customers  have  if  there  is  only 
one  word  processor,  one  graphics 
program,  or  one  spreadsheet  on  the 
market?  To  my  naive  mind,  it  seems 
that  the  copyright  of  the  overall 
structure,  sequencing,  and  organi- 
zation of  a  program  is  another  way 
of  copyrighting  the  program's  idea. 
Maybe  I  should  go  back  in  time 
and  ask  Benjamin  Franklin  what  he 
would  have  thought  of  this! 
David  Thornburg,  founder  of  Innovi- 
sion'^*^  and  an  associate  editor  of 
COMPUTE!™,  is  also  a  software 
developer  who  is  confused  by  the  re- 
cent flurry  of  rulings  in  the  software 
copyright  field.  (Contents  ©,  1986  by 
David  Thornburg,  Innovision;  and 
COMPUTE!  Publications,  Inc.  All 
rights  reserved.)  @ 
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The  World  Inside  the  Computer 


Fred  D'Ignazio,  Associate  Editor 


The  COMPUTEREYES/2  Digitizer 


If  you'd  like  to  turn  your  computer 
into  a  desktop  publishing  and  video 
workstation,  or  if  you're  a  frequent 
user  of  Print  Shop,  Neivsroom,  Dazzle 
Draw,  or  other  popular  Apple  II 
graphics  programs,  you  should  take 
a  look  at  the  COMPUTEREYES/2 
video  digitizer  from  Digital  Vision. 

The  digitizer  itself  is  a  green 
circuit  card  with  three  gray  cables 
snaking  out  the  back.  The  circuit 
card  goes  into  any  slot  in  an  Apple 
Il-series  computer,  and  your  video 
camera  plugs  into  an  attached  cable. 
COMPUTEREYES  retails  for 
$129.95.  (Note:  There  is  no  version 
of  COMPUTEREYES/2  for  the  Ap- 
ple lie  yet,  only  the  basic  product, 
COMPUTEREYES.) 

I  used  two  video  cameras  with 
COMPUTEREYES/2:  a  Sony  8mm 
camcorder  (the  CCD-V8AFU)  and  a 
JVC  camcorder  (the  GR-C7U).  Both 
cameras  hooked  up  easily  to  the 
cables  and  immediately  generated  a 
video  signal  on  the  Apple  II  screen. 

Make  sure  you  have  a  copy  of 
the  COMPUTEREYES/2  disk.  The 
COMPUTEREYES/2  enhanced  soft- 
ware comes  separately  from  the  cir- 
cuit card  and  costs  an  additional 
$24.95. 

Single  Or  Double  Hi-Res 

When  you  boot  up  the  disk,  it  asks 
you  whether  you  want  to  use  the 
DOS  3.3  or  ProDOS  operating  sys- 
tem. This  turns  out  to  be  an  impor- 
tant question.  The  two  versions 
have  different  features.  In  DOS  3,3, 
you  can  create  single-hi-res  digi- 
tized images  which  you  can  later 
use  in  Print  Shop  and  Neivsroom.  In 
ProDOS,  you  can  create  double-hi- 
res images  which  you  can  use  in 
Dazzle  Draw. 

After  you  "configure"  your 
system  (I  chose  NTSC  video,  80- 
column  extended  memory,  and  slot 
3),  a  master  menu  appears  on  the 
computer  screen.  At  the  master  lev- 
el, you  can  view  direct  video  input 


from  your  video  camera,  capture 
(digitize)  the  video  image,  adjust 
the  image  brightness  and/or  con- 
trast, modify  the  image,  save  the 
image  onto  disk,  or  load  a  new 
image  from  a  disk  file. 

I  set  my  JVC  camera  up  on  a 
tripod  so  the  lens  was  pointed 
down  at  the  floor.  On  the  floor 
(mounted  on  a  couch  pillow)  I 
placed  an  8  X  10  black-and-white 
photo  of  my  daughter  Catie.  I  chose 
the  COMPUTEREYES/2  capture 
menu  option  and  standard  hi-res. 
The  program  automatically  cali- 
brated the  brightness  and  contrast, 
and,  voila!  1  had  a  very  nice  digi- 
tized image  of  Catie.  I  played  with 
the  brightness  and  contrast  a  little 
and  improved  the  image  slightly, 
then  I  saved  it  onto  my  DOS  3.3 
data  disk. 

Now  the  real  fun  began.  1  re- 
turned to  the  main  menu,  and  after 
choosing  modify,  I  shrank  the  digi- 
tized image  of  Catie,  inverted  it  (so 
it  looked  like  a  photographic  nega- 
tive), flipped  it  over  (using  the  mir- 
ror function),  and  restored  it  to  its 
original  form.  Next,  I  created  a  Print 
Shop  graphic  version  of  the  image 
(using  the  convert  function)  and  a 
Newsroom  "photo,"  and  saved 
them  on  the  data  disk. 

Using  The  Image 

Leaving  the  COMPUTEREYES/2 
program,  I  booted  up  Print  Shop 
and  Newsroom,  retrieved  the  digi- 
tized photo  files,  and  incorporated 
them  into  a  Pritit  Shop  "sign"  and  a 
Newsroom  "panel."  Print  Shop  gave 
me  the  option  of  shrinking  or  en- 
larging the  photo  and  placing  it 
anywhere  I  wanted  on  my  sign 
page.  In  Newsroom,  I  learned  that 
the  best  way  to  use  the  digitized 
image  was  to  first  load  it  into  the 
Photo  Lab,  then  crop  it,  save  it  on 
disk,  and  load  it  into  a  Newsroom 
panel  at  the  Copy  Desk.  Last,  I 
typed  in  a  little  Newsroom  story 


which  wrapped  around  the  picture 
in  the  panel.  I  printed  the  picture 
and  story  panel  and  the  Print  Shop 
sign  without  any  problem.  The 
quality  of  the  ImageWriter  ll's 
printed  copy  was  quite  good. 

When  I  returned  to  COMPU- 
TEREYES/2, I  chose  ProDOS  as  my 
operating  system  so  I  could  create 
Dazzle  Draw  images.  I  returned  to 
the  master  menu,  captured  a  new 
image  of  Catie  from  the  photo,  and 
this  time  saved  it  as  a  Dazzle  Draw 
file.  I  left  COMPUTEREYES/2, 
booted  up  Dazzle  Draw,  and  loaded 
the  digitized  photo  of  Catie.  As  a 
double-hi-res  image,  it  was  much 
sharper  than  the  single-hi-res  im- 
ages I  had  used  in  Print  Shop  and 
Neivsroom.  In  Dazzle  Draw  I 
cropped  the  photo  (keeping  only 
the  part  1  wanted),  drew  an  orange 
picture  frame  around  it,  created  a 
nice  caption  box,  framed  it  in  blue, 
and  printed  the  entire  graphic  out 
on  the  ImageWriter  II.  Next,  I  dis- 
connected the  monitor  cable  from 
the  back  of  the  picture  screen, 
plugged  it  into  the  VIDEO  IN  outlet 
of  my  VCR,  and  copied  the  entire 
picture  onto  videotape  as  a  title 
screen  for  a  little  video  of  Catie's 
birthday  party. 

You  can  also  use  COMPUTER- 
EYES/2 to  capture  a  Print  Shop 
graphic,  then  convert  it  into  a 
Newsroom  "photo"  for  use  in  a 
newsletter,  or  you  can  use  it  to  cap- 
ture a  Newsroom  "photo"  and  con- 
vert it  into  a  Print  Shop  graphic. 

Digital  Vision,  the  manufacturer 
of  COMPUTEREYES/2,  is  located 
at  66  Eastern  Ave.,  Dedham,  MA 
02026,  © 
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Microscope 


Sheldon  Leemon 


The  Winter  Consumer  Electronics 
Show  isn't  a  computer  show  as 
such,  but  the  kinds  of  computer 
products  exhibited  there  are  indica- 
tive of  current  trends  in  the  com- 
puter market  in  general,  and  home 
computers  in  particular. 

Considering  the  current  size  of 
the  personal  computer  industry,  it's 
almost  impossible  to  believe  that 
six  or  seven  years  ago  it  didn't  ex- 
ist— at  least  not  as  we  know  it  to- 
day. But  as  recently  as  the  January 
1981  CES,  Commodore  was  show- 
ing off  the  new  VIC-20,  which  was 
still  awaiting  FCC  approval  (some 
things  never  seem  to  change).  Since 
then,  the  industry  has  been  through 
a  lot  of  ups  and  downs  in  a  very 
short  period  of  time.  If  the  latest 
CES  is  any  indication,  though, 
things  are  finally  leveling  off,  and 
the  industry  is  at  last  entering  a 
more  mature  phase.  I  spent  most  of 
the  show  peering  through  binocu- 
lars (the  big  end),  trying  to  spot 
trends,  and  here's  some  of  what  I 
turned  up: 

•  Exhibition  Space.  The  exhi- 
bition space  devoted  to  computers 
overall  appears  to  be  up  somewhat, 
but  there  seems  to  be  less  diversity 
than  in  former  years.  In  the  "glory 
days"  of  1983,  large  displays  were 
hosted  by  every  major  software  and 
hardware  manufacturer,  while 
smaller  booths  showcased  the 
many  unknown  hopefuls.  At  this 
show,  a  great  many  of  the  larger 
software  firms  were  represented, 
but  mostly  at  the  booths  of  the  soft- 
ware distributors  that  sell  their 
wares.  Rather  than  having  a  large 
display  devoted  to  one  manufactur- 
er, these  booths  were  shared  by 
competing  firms.  There  are  far  few- 
er "wildcard"  exhibits,  like  the  guys 
who  used  to  show  an  Apple- 
compatible  computer  built  into  a 
TV  set,  that  also  played  Atari  2600 
game  cartridges. 

•  PC  Clones.  It  used  to  be  that  a 


PC's  place  was  in  the  office,  but  no 
more.  As  a  result  of  price  cutting 
reminiscent  of  the  Home  Computer 
Wars  a  few  years  back,  PC  compati- 
bles have  crashed  through  the 
$1,000  price  barrier,  and  are  poised 
on  the  brink  of  becoming  the  next 
Commodore  64.  This  CES  was  no- 
table not  only  for  the  number  of 
inexpensive  PC  clones  shown,  but 
also  for  the  names  and  the  quality 
behind  them.  Blue  Chip  was  show- 
ing its  $700  Korean  PC,  built  by 
Hyundai,  the  car  manufacturer,  and 
Victor  Technology  had  an  $800  PC. 
But  the  most  interesting  develop- 
ment came  when  two  of  the  top 
home  computer  manufacturers. 
Commodore  and  Atari,  entered  the 
PC  sweepstakes. 

Commodore's  machines,  the 
PC-10  and  PC-20,  were  far  more 
conservative  than  Atari's.  Commo- 
dore's clones  look  Kke  the  PC,  feel 
like  the  PC,  and  act  like  the  PC. 
They  run  at  the  standard  (slow) 
4.77  MHz  clock  rate,  and  their  only 
nonstandard  feature  is  a  built-in  vid- 
eo adapter  that  emulates  the  Hercu- 
les monographics  card  and  the 
Plantronics  color  card.  Likewise, 
their  pricing  ($1,000  for  the  FC-10 
and  $1,200  for  the  PC-20)  is  far  from 
innovative.  Conrunodore  is  appar- 
endy  depending  on  its  name,  and 
the  previous  success  of  these  ma- 
chines in  Europe  and  Canada,  to 
draw  in  the  customers.  Their  slogan: 
"It's  not  a  clone.  It's  a  Commodore." 

Atari's  entry,  however,  is  any- 
thing but  conventional.  In  a  move 
j  that  took  many  observers  by  sur- 
prise. Atari  announced  two  new 
very  low-priced  compatibles.  These 
units  look  much  more  like  audio  or 
video  components  than  the  boxy 
old  PC.  In  fact,  the  styling  is  the 
same  as  that  of  the  Mega  ST  se- 
ries— sleek,  white  plastic  squares 
that  ride  low  on  the  table.  These 
models  come  complete  with  dual 
clock  speed  (4.77  and  8  MHz),  seri- 


al port,  parallel  port,  graphics 
adapter,  and  floppy  drive,  but  no 
built-in  expansion  slots.  This  strate- 
gy resembles  that  used  with  the 
Apple  lie — build  in  the  most  popu- 
lar options,  and  the  consumer 
won't  need  slots.  In  Apple's  case  it 
didn't  really  work  out  that  way,  but 
Atari  has  one  thing  going  for  it  that 
Apple  didn't— the  price.  At  $500 
for  the  basic  model,  and  $700  for 
one  with  a  monochrome  monitor 
and  built-in  EGA-type  graphics 
adapter,  there  will  undoubtedly  be 
a  few  who'll  decide  that  they  don't 
need  expansion  slots  after  all. 

•  Videogames.  A  couple  of 
years  ago,  you'd  have  sworn  that 
the  videogame  was  dead.  The 
Adam  had  dragged  down  the  Cole- 
covision  system,  Mattel  had  aban- 
doned Intellevision,  and  Atari  was 
on  the  ropes.  This  year,  however, 
videogames  have  made  their  come- 
back in  a  big  way.  Sega  and  Nin- 
tendo both  have  hot  new  systems 
with  improved  graphics  and  lots  of 
RAM,  Atari  is  healthy  again  and 
showing  more  game  machines  than 
ever,  and  even  the  Intellevision  sys- 
tem had  a  booth.  Since  the  success 
of  videogames  has  always  boded 
well  for  the  home  computer  (which 
can  play  the  same  or  better  games, 
and  do  a  lot  more  besides),  this  can 
only  be  taken  as  an  encouraging 
sign.  Although  the  idea  of  making  a 
videogame  machine  into  a  com- 
puter isn't  new  (Nintendo's  ma- 
chine is  part  of  a  popular  computer 
system  in  Japan),  Atari's  scheme  of 
turning  its  65XE  into  a  videogame 
machine  adds  a  new  twist.  It  does 
make  a  kind  of  sense,  though.  The 
65XE  was  so  low-priced  that  it  was 
hard  to  take  it  seriously  as  a  full- 
fledged  computer  (which,  of 
course,  it  was).  Maybe  it  will  get 
more  respect  as  a  high-end  video- 
game machine  than  it  did  as  a  low- 
end  computer.  © 
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ST  Outlook 


Philip  I.  Nelson,  Assistant  Editor 


Atari  Does  It  Again 


It's  not  easy  to  startle  insiders  in  the 
computer  industry,  but  Atari  did 
just  that  with  its  new  product  an- 
nouncements in  January  at  the 
Winter  Consumer  Electronics  Show 
(CES)  in  Las  Vegas.  True,  there  had 
been  talk  of  expanded-memory  ST 
models  and  a  low-cost  Atari  laser 
printer,  but  very  few  people  in  or 
out  of  this  business  had  advance 
knowledge  of  the  new  "Atari 
PC" — an  IBM  PC-compatible  com- 
puter sporting  the  Atari  logo.  Com- 
bine those  products  with  a  solid  8- 
bit  computer  line  and  a  videogame 
division  that  won't  quit,  and  you 
can  understand  why  many  folks  are 
bullish  on  Atari  these  days. 

Not  surprisingly,  the  Atari  PC 
comes  with  the  PC  version  of  the 
GEM  desktop  (as  well  as  MS-DOS 
and  GW  BASIC  for  conventional 
PC  applications).  As  you  may  have 
heard,  Apple  Computer  recently 
convinced  Digital  Research,  the  cre- 
ator of  GEM,  to  alter  GEM  on 
grounds  that  it  unfairly  duplicated 
the  "look  and  feel"  of  Apple's  Mac- 
intosh user  interface.  But  you 
needn't  worry  about  GEM  chang- 
ing on  the  ST,  The  changes  apply 
only  to  the  original,  PC-based  ver- 
sion of  GEM  and  are  largely  cos- 
metic, in  any  case.  For  instance,  the 
trash  can  appears  in  a  menu  rather 
than  as  an  icon  on  the  desktop. 
Both  incarnations  of  GEM  are  simi- 
lar enough  that  ST  and  Atari  PC 
users  should  be  able  to  switch  from 
one  to  the  other  without  difficulty. 

The  new  Mega  ST  is  a  large- 
memory  ST  computer  aimed  pri- 
marily at  the  business  market.  The 
machine  comes  with  one,  two,  or 
four  megabytes  of  RAM;  has  a  de- 
tached keyboard  and  battery- 
backed  clock;  and  includes  the 
long-awaited  blitter  chip  for  en- 
hanced graphics.  Coupled  with  the 
under-$l,500  laser  printer,  a  two- 
megabyte  desktop  publishing  sys- 
tem based  on  the  Mega  ST  will  cost 


about  $3,000.  That  price  tag  could 
make  the  Mega  ST  a  serious  con- 
tender in  the  red-hot  desktop  pub- 
lishing market,  still  dominated  by 
the  Macintosh. 

Incidentally,  the  announce- 
ment of  the  Mega  ST  in  no  way 
signals  the  demise  of  the  520ST  and 
1040ST  models.  In  fact,  prices  were 
cut  $100  on  both  the  monochrome 
and  color  1040ST  systems,  and  re- 
duced from  $799  to  $499  for  the 
monochrome  520ST  system. 

New  Software 

The  flood  of  new  ST  software  titles 
shows  no  signs  of  abating.  Smaller 
software  companies  continue  to  in- 
troduce new  ST  programs,  while 
more  established  firms  are  round- 
ing out  their  catalogs  with  ST  trans- 
lations of  already-popular  titles. 
Electronic  Arts,  for  example,  is  re- 
leasing the  highly  rated  Chessmas- 
ter  2000  for  the  ST,  as  well  as  games 
like  Skyfox  and  Ogre.  And  Epyx  is 
translating  titles  like  Winter  Games 
and  the  Temple  of  Apshai  Trilogy. 

If  you  do  a  lot  of  writing,  you 
may  be  interested  in  WordPerfect  for 
the  ST.  Long  a  favorite  with  IBM 
PC  owners,  WordPerfect  is  a  profes- 
sional word  processor  with  ad- 
vanced features  such  as  keyboard 
macros,  footnotes  and  endnotes,  a 
built-in  thesaurus,  and  automatic 
generation  of  a  table  of  contents  or 
index.  If  you  don't  need  all  the  bells 
and  whistles,  it's  still  a  dandy  word 
processor.  The  ST  version,  of 
course,  is  fully  GEM-based;  virtual- 
ly all  functions  are  available  with 
the  mouse  or  keyboard,  and  you 
can  also  use  desk  accessories. 

Another  interesting  third-party 
BASIC  has  surfaced,  this  time  from 
Computer  Concepts  in  England, 
Fast  BASIC  exists  in  a  ROM  car- 
tridge rather  than  loading  from 
disk.  Putting  BASIC  on  a  cartridge 
has  two  major  advantages;  You 
don't  have  to  wait  for  BASIC  to 


load,  and  you  have  more  RAM 
space  for  programs.  Although  I 
haven't  seen  this  package,  its  speci- 
fications look  intriguing,  to  say  the 
least.  Besides  the  usual  commands, 
the  language  includes  a  wide  array 
of  debugging  modes  and  an  en- 
hanced SWITCH-CASE-END- 
SWITCH  decision-making  structure 
(the  latter  will  be  familiar  to  C  pro- 
grammers). Fast  BASIC  also  offers  a 
GEM-based  editor  with  word 
processor-style  features  such  as 
search  and  replace,  cut,  copy,  and 
paste.  Moreover,  it  supports  C-style 
pointer  operations  (variable  indi- 
rection) and  permits  you  to  mix  as- 
sembly language  instructions  with 
BASIC  statements.  Fast  BASIC  pro- 
grams don't  appear  to  run  without 
the  cartridge,  however,  which 
means  you  can't  share  programs 
with  friends  who  don't  own  the 
cartridge,  too. 

In  the  MIDI  arena,  Sonus  now 
offers  ST  versions  of  four  different 
recording  and  sequencing  pro- 
grams: G/flssTrflc/cs,  The  Super  Se- 
quencer, The  Master  Piece,  and  The 
Super  Score.  The  first  three  include 
recording,  sequencing,  and  librari- 
an functions,  and  the  fourth  is  a 
scoring  and  layout  application. 

Computer  Concepts 

Gaddesden  PI. 

Hemel  Hempstead 

Herts. 

HP!  SEX  England 

U.S.  and  Canadian  distribution: 

C-Plus  Marketing 

130  Alt)ert  St.,  Ste  B-8 

Ottawa,  Ontario 

Canada  KIP  5G4 

Electronic  Arts 
1820  Gateway  Dr. 
Sttu  Mateo.  CA  94404 

Epyx  Software 
600  Galveston  Dr. 
Redwood  City,  CA  9i063 

Sonus 

21430  Strathern  St. 

Canoga  Park.  CA  91304 

WordPerfect  Corporation 

266  W.  Center 

Orem,  UT  84057  @ 
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IBM  Personal  Computing 


Donald  B,  Trivette 


Low-priced  Speed  And  Space 


There  are  dozens  of  speed-up 
boards  on  the  market  for  the  IBM 
PC,  costing  from  three  hundred  to 
thousands  of  dollars,  and  all  work- 
ing with  some  degree  of  success. 
Although  I've  tested  many  of  these 
boards  in  the  past,  I  have  never 
made  one  of  them  a  permanent  part 
of  my  aging  PC.  Either  they  had 
compatibility  problems  or  they  re- 
quired special  software  to  effect  the 
speed-up;  at  the  very  least  they 
took  up  one  of  my  expansion  slots. 
Enter  the  NEC  V20,  an  exact 
replacement  for  the  Intel  8088  pro- 
cessor that  is  found  in  the  IBM  PC, 
PCjr,  XT,  and  most  PC  clones.  The 
V20  is  faster  than  the  Intel  proces- 
sor and  costs — are  you  ready? — 
only  $10.  NEC  has  designed  the 
circuits  inside  its  chip  to  execute 
more  instructions  in  fewer  clock  cy- 
cles. In  addition,  a  second  internal 
data-bus  contributes  to  the  in- 
creased speed.  While  the  processor 
is  considerably  faster  than  its  Intel 
counterpart,  the  computer's  clock 
still  runs  at  4,77  MHz,  and  thus  the 
overall  performance  is  not  astound- 
ing— in  fact,  the  performance  var- 
ies from  application  to  application. 
The  V20  is  rated  6  percent  faster 
than  the  Intel  8088,  but  recalculat- 
ing a  spreadsheet  which  performs 
lots  of  calculations  is  speeded  up 
more  than  copying  a  file. 

Before  It's  Too  Late 

While  I  have  yet  to  find  any  cases  of 
dramatically  improved  speed,  1  did 
buy  and  install  V20s  in  both  my 
IBM  PC  and  my  PCjr.  At  $10  each,  I 
figure  I  can't  go  wrong.  And  I  con- 
fess that  the  possibility  that  this 
chip  may  soon  be  pulled  from  deal- 
ers' shelyes  also  influenced  me  to 
part  with  $20 — the  lure  of  the  un- 
obtainable and  all  that. 

Intel  is  in  court  with  NEC  over 
alleged  patent  infringements  and, 
should  Intel  win,  it's  expected  that 
the  V20  processors  will  be  swiftly 


withdrawn.  Even  as  you  read  this, 
the  case  may  already  be  settled  and 
the  V20  unavailable.  Nevertheless, 
here  are  (were?)  two  sources:  Leo 
Electronics,  P.O.  Box  11307,  Tor- 
rence,  CA,  90510,  (213)  212-6133  or 
(800)  421-9565  outside  CA;  and  Ari- 
el Computer  Corp,,  Box  866  Flem- 
ington,  NJ,  08822,  (201)  788-9002. 
Leo  is  selling  the  V20  for  $9.50  plus 
$2  shipping,  and  Ariel  is  selling  it  for 
a  few  dollars  more. 

The  installation  isn't  compli- 
cated. For  the  IBM  PC,  pull  the 
power  plug  out  of  the  wall,  remove 
the  two  screws  in  the  rear  that  hold 
the  cover  on,  and  then  slide  the 
metal  case  slightly  up,  forward,  and 
off.  The  Intel  8088  chip  is  located 
on  the  motherboard  to  the  left  of 
the  power  supply  and  just  behind 
the  disk  drive.  It's  not  necessary  to 
remove  any  option  boards  to  re- 
move the  8088.  Once  you've  found 
it  (it'll  have  "Intel  8088"  printed  on 
it),  carefully  note  its  location  and 
orientation.  The  empty  socket  to 
the  right  is  for  the  8087  coprocessor. 
Before  removing  the  8088,  notice 
the  notch  or  cut  in  one  end  of  the 
chip.  Be  sure  to  insert  the  V20  with 
its  notch  in  the  same  orientation. 

To  remove  the  old  processor, 
slip  a  small  screwdriver  (or  nail  file 
blade)  between  the  chip  and  its 
socket;  gently  rock  from  side  to  side 
to  loosen  one  end  of  the  chip  from 
its  base;  apply  the  same  gentle 
rocking  motion  to  the  other  end.  By 
using  gradually  leverage  under 
each  end  of  the  chip  you  can  safely 
free  it  from  its  socket.  (Be  sure  you 
are  working  on  the  chip  and  not  the 
socket,  which  is  soldered  into  the 
motherboard.)  Carefully  insert  the 
V20  into  the  socket  and  push  firmly 
into  place.  I  found  it  fit  more  easily 
when  I  bent  the  tines  on  one  side  of 
the  V20  just  slightly  inward.  Verify 
that  all  the  tines  are  in  the  sockets 
before  reinstalling  the  cover. 

Installing  the  NEC  V20  in  the 


PCjr  is  a  bit  more  troublesome  be- 
cause the  8088  is  located  under  the 
disk  drive.  Pull  the  wall  plug,  re- 
move the  two  cables — one  signal, 
the  other  power — from  the  head  of 
the  drive,  then  gently  push  the 
drive's  plastic  tabs  up  through  the 
bottom  of  the  case.  The  disk  drive  is 
not  screwed  into  the  chassis  but 
rather  is  held  in  place  by  fricHon 
tabs.  Follow  the  PC  instructions  for 
removing,  orienting,  and  installing 
the  V20  chip  in  the  PCjr.  If  you 
discover  significant  increases  in 
speed,  please  let  me  know. 

More  Disk  Space 

Once  you  have  a  faster  computer, 
you're  going  to  want  more  disk 
space,  and  there's  even  an  inexpen- 
sive way  to  get  that.  SoftLogic  Solu- 
tions makes  a  product  called  Cubit 
that  compresses  the  data  in  a  file — 
sometimes  by  as  much  as  60  per- 
cent. For  example,  this  article  is 
6194  bytes  long  (or  was,  before  the 
editor's  heavy  hand),  and  Cubit 
shrank  it  to  3445  bytes — is  a  com- 
pression ratio  of  44  percent. 

Not  only  does  Cubit  make  the 
file  smaller,  it  also  includes  a  mem- 
ory resident  program  that  can  auto- 
matically decompress  and 
recompress  a  file  every  time  it  is 
used.  (Decompression  for  this  arti- 
cle into  my  word  processor  took 
about  3.5  seconds.)  When  I'm  fin- 
ished using  the  file  and  the  word- 
processing  program  issues  the 
close-file  instruction.  Cubit  jumps 
in  and  recompresses  the  file,  a  pro- 
cess which  takes  about  six  seconds. 

Since  I  have  a  hard  disk  with  a 
few  million  spare  bytes,  I  use  Cubit 
mostly  for  backup  files  and  for  ar- 
chiving old  letters  and  articles  onto 
floppy  disks.  Cubit  costs  $49.95  and 
is  available  from  SoftLogic  Solutions; 
530  Chestnut  St.,  Manchester,  NH 
03101,  (603)  644-5555,  © 
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AmigaView 


Sheldon  Leemon 


The  New  Amigas 


If  the  Winter  Consumer  Electronics 
Show  is  any  indication,  things  are 
looking  up  for  Connmodore  and  the 
Amiga.  Though  Commodore  has 
had  to  reduce  its  presence  at  trade 
shows  for  the  last  couple  of  years 
due  to  financial  problems,  this  year 
they  were  back  with  their  usual 
large  booth.  And  this  was  the  first 
time  the  Amiga's  been  displayed 
along  with  the  Commodore  64  and 
128  at  a  consumer  product  show. 
One  side  of  the  booth,  packed 
throughout  the  show,  was  devoted 
to  Amiga  hardware  and  software. 

Electronics  Arts  previewed  Re- 
turn to  Atlantis,  a  cinematic  adven- 
ture game.  Digi-View  was  showing 
an  even  newer  version  of  its  video 
digitizing  software,  this  time  with 
320  X  400  HAM  mode.  New  Hori- 
zons had  its  Pro  Write  word  proces- 
sor, displayed  on  a  Commodore 
prototype  long-persistence  phos- 
phor monitor,  which  nearly  elimi- 
nates flicker  in  interlace  mode. 

But  Commodore's  was  not  the 
only  spot  where  the  Amiga  was  on 
display.  Aegis  Software  had  a 
booth  where  they  previewed  a  vid- 
eo titling  program  whose  graphics 
extend  to  the  edges  of  the  screen,  a 
telecommunications  package  that 
allows  simultaneous  file  transfer  in 
both  directions  while  an  online 
"chat"  is  taking  place,  and  a  3-D 
animation  system.  Progressive  Per- 
ipherals showed  a  two-megabyte 
memory  card,  a  file  utility  called 
CLl-Mate,  and  a  word  processor, 
Vizawrite,  that  allows  you  to  mix 
IFF  graphics  and  different  text 
fonts.  Master  Designer  Software 
showed  new  titles  in  their  Cin- 
emaware  line,  including  SD!  and 
Sinbad,  and  Amigas  could  be  seen 
in  several  of  the  booths  hosted  by 
large  software  distributors. 

Amiga  Senior  And  Junior 

The  Amiga  products  shown  could 
easily  provide  enough  material  to 


fill  this  column,  but  the  most  excit- 
ing new  Amiga  products  weren't  on 
display — not  publicly,  at  least.  Up- 
stairs at  the  Commodore  booth, 
there  were  private  showings  of  the 
two  new  Amiga  models  that  we've 
been  hearing  rumors  and  hints 
about  for  many  months.  The  small- 
er and  less  expensive  of  the  two,  the 
Amiga  500,  is  a  one-piece  unit  simi- 
lar in  appearance  to  the  128.  Senior 
Engineer  Jeff  Porter  said  that  this 
machine  was  code-named  the  B-52 
because  he  was  told  if  he  couldn't 
reduce  the  size,  power  require- 
ments, and  component  count  of  the 
Amiga,  "they  might  as  well  send  in 
the  bombers  and  level  the  place." 

Fortunately  they  were  able  to 
do  it,  and  the  result  of  the  redesign 
is  a  single  circuit  board  that  looks 
no  more  complex  than  a  128,  but  is 
a  complete  Amiga.  The  500  con- 
tains 512K  of  chip  memory,  a  built- 
in  3V2-inch  disk  drive,  and  has 
room  internally  for  a  plug-in  board 
with  512K  of  fast  RAM  and  a  clock- 
calendar.  It  has  the  same  external 
ports  as  the  AlOOO,  including  an 
expansion  bus  connector,  though 
some  of  these  plugs  have  different 
pin  configurations  and  are  located 
closer  to  the  table  than  those  on  the 
1000,  With  proper  cabling  it  can  use 
all  Amiga  1000  peripherals,  provid- 
ing power  requirements  don't  ex- 
ceed the  capabilities  of  the  smaller 
external  power  supply  that  comes 
with  the  500.  Though  pricing  isn't 
firm,  it  will  probably  be  in  the  $650 
range  for  the  A500,  under  $150  for 
the  512K  expansion  card,  and  $350 
for  the  color  monitor. 

While  the  Amiga  500  is  meant 
to  fill  in  at  the  low  end  of  the  home 
market,  the  Amiga  2000  is  designed 
for  maximum  power  and  per- 
formance. Its  case  is  twice  as  tall  as 
the  current  AlOOO,  and  the  extra 
space  is  used  to  provide  more  room 
for  internal  disk  drives,  and  built-in 
expansion  slots.  There's  space  for 


two  3V2-inch  drives  and  one  574- 
inch  drive,  which  may  be  made  up 
of  any  combination  of  floppy  and 
hard  drives.  There  are  two  rows  of 
slots  for  up  to  seven  expansion 
cards,  with  four  full-size  PC-AT 
slots  at  the  rear  of  the  computer,  five 
lOO-pin  Amiga  slots  at  the  front,  and 
two  of  each  type  overlapping. 

Continuity,  Connpatibility 

The  PC  slots  are  electrically  inert, 
and  become  active  only  when  you 
plug  in  the  Bridge  card.  That's  a 
Sidecar  on  a  card  which  plugs  into  a 
PC  slot  at  one  end  and  an  Amiga 
slot  at  the  other.  You  can  plug  the 
Bridge  card  into  either  of  two  posi- 
tions, to  get  either  three  free  PC 
slots  and  three  Amiga  slots,  or  two 
PC  slots  and  four  Amiga  slots. 

Amiga  intends  to  market  peri- 
pherals for  the  expansion  slots,  in- 
cluding two-  and  eight-meg  RAM 
cards,  and  a  DMA  hard  disk  control- 
ler that  supports  two  ST-506  (IBM 
type)  hard  drives  or  four  SCSI 
drives.  In  addition  to  the  regular 
slots,  there  is  an  86-pin  slot  for  spe- 
cial cards  (like  a  68020  coprocessor, 
or  expanded  video  capabilities),  and 
a  connector  that  brings  out  the  raw 
RGB  video  signals  for  an  internal 
genlock  or  other  professional  video 
peripherals.  List  priced  at  about 
$1,500,  the  2000  will  come  with  one 
3V2-inch  drive,  a  meg  of  RAM,  and  a 
clock-calendar.  Both  machines  will 
have  Kickstart  1.2  in  ROM. 

Despite  rumors  to  the  contrary, 
the  two  new  Amiga  models  do  not 
support  either  expanded  graphics 
resolution  or  more  than  512K  of 
chip  memory.  Both  use  the  68000 
processor,  and  neither  supports  a 
math  coprocessor.  Although  the 
lack  of  new  features  will  disappoint 
some,  a  lot  of  current  Amiga  own- 
ers will  be  relieved  to  find  that  the 
new  models  maintain  complete 
compatibility  and  don't  make  their 
current  computers  obsolete.  @ 
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Telecomputing  Today 


Arlon  R.  Levitan 


April  Antics 


First,  the  good  news. 

Intel  Corporation,  the  semi- 
conductor folks  responsible  for  the 
8000  series  of  microprocessors  that 
beat  within  the  hearts  of  most  IBM 
and  compatible  PCs,  has  an- 
nounced a  new  low-cost  2400-bps 
modem  chip  set  that  requires  little 
outboard  electronics  support.  The 
Intel  product  will  be  available  in 
quantity  to  modem  manufacturers 
by  the  end  of  the  summer.  Expect  to 
see  a  flock  of  full-featured  high- 
speed modems  based  on  the  Intel 
set  to  hit  retailers'  shelves  by  year's 
end.  Manufacturers  who  opt  to 
stick  with  the  Rockwell  chip  set 
currently  in  vogue  will  face  stiff 
competition.  Projected  average  list 
price  of  the  new  2400~bps  units  is 
only  $200. 

Happy  April  from  Levitan's 
Lexicon  of  Telecomputing  Tom- 
foolery: 

Acoustic  Modem:  A  modem  jury- 
rigged  from  spare  electronic  parts 
and  a  wooden  staff  normally  used 
to  play  billiards. 

ASCII:  Ancient  deity  of  telecom- 
puting. Rumored  to  bestow  vast 
volumes  of  data  upon  supplicants. 
Hence  the  saying,  "ASCII  and  ye 
shall  receive." 

Auto  Answer:  What  the  author  of 
this  column  should  do  when  in- 
formed that  a  COMPUTE!  editor  is 
calling  to  find  out  where  in  blazes 
this  month's  column  is. 
BBS:  Tall  tales  of  telecomputing 
told  by  insects  that  produce  honey. 
Block  Parity:  One  heck  of  a  good 
time. 

Buffering:  A  popular  pain  reliever. 
Carrier  Detect:  Raison  d'etre  for 
premarital  blood  tests. 
CBBS:  More  tall  tales  of  telecom- 
puHng  told  by  Naval  engineers. 
Ethernet:  Device  used  to  catch  the 
Ether  Bunny. 
File  Transfer:  Procedure  followed 


by  telecomputerists  who  become 
tired  of  their  present  job. 
Hayes  Compatible:  Prone  to  riding 
with  a  grizzled  old  cowhand  who 
sings  off  key.  Gene  Autry  is  the 
accepted  industry  standard. 
Kermit:  A  popular  file-transmis- 
sion protocol,  most  effective  for 
short  hops. 

Local  Area  Network:  A  UHF  tele- 
vision  station    that   carries   high 
school  sporting  events. 
Macro:  A  tasty  saltwater  fish. 
Modem:  What  landscapers  do  to 
lawns. 

OAG:  The  sound  a  telecomputing 
buff  makes  after  opening  the 
monthly  phone  bill.  (Moral:  Ask 
not  for  whom  Bell  tolls.) 
Off  Hook:  What  the  author  of  this 
column  is  after  finally  finishing  it. 
Online:  Where  you  hang  your 
laundry  to  dry. 

Prime  Time:  Any  hour  of  the  day 
divisible  only  by  1  and  itself. 
Packet  Switch  Delay:  Intermittent 
data  flow  caused  by  heavy  traffic  in 
a  packet  network.  Most  famous  ex- 
ample was  HULANET,  a  packet 
network  set  up  in  Hawaii  to  facili- 
tate communications  between  man- 
ufacturers of  pineapple,  guava, 
papaya,  and  passion  fruit  juices. 
Due  to  high  data  volume,  HULA- 
NET was  plagued  with  frequent, 
excessive  delays.  Moral:  Don't  wait 
for  the  punch  line. 
Protocol:  For  golf,  Arnold  Palmer 
or  Jack  Nicklaus. 
Serial  Interface:  A  spoon. 
Terminal  Emulation:  Function 
performed  by  canines  when  com- 
manded to  lie  on  their  backs  with 
legs  in  the  air. 

Upload:  A  group  of  tourists  on  their 
way  to  the  observation  deck  of  the 
Sears  Tower. 

Videotex:  The  largest  commercial 
purveyor  of  VCRs  and  televisions 
in  Dallas. 


XModem;  A  telecommunications 
device  that  was  on  the  losing  end  of 
an  encounter  with  lightning. 

Wretched  Excess 

Many  commercial  informaHon  ser- 
vices provide  special  "complimen- 
tary" (comp)  IDs  to  the  shakers  and 
movers  of  the  micro  industry.  One 
of  the  largest  and  most  popular 
information  services  recently 
moved  to  restrict  the  privileges  of 
comp  IDs.  It  seems  that  an  extreme- 
ly well-known  public  relations 
mouthpiece  for  a  major  microcom- 
puter manufacturer  got  hooked  on 
playing  a  popular  online  multi- 
player  game — so  much  so  that  the 
space-happy  VIP  started  taking  un- 
fair advantage  of  the  fact  that  the 
longer  one  played  the  game  in 
question,  the  stronger  one's  star- 
ship  became.  Things  got  way  out  of 
hand  as  novice  and  experienced 
players  alike  were  mauled  as  they 
entered  the  online  melee  by  a  star- 
ship  that  had  accumulated  rfsys  of 
strength  points.  Beset  with  a  raft  of 
complaints  from  paying  customers, 
the  information  service  graciously 
kneeled  to  user  pressure  and  yanked 
all  game  access  for  its  comp  IDs. 

Monty  Python  And  The  Art 
Of  Telecomputing 

Americans  don't  have  a  monopoly 
on  misbehavior.  Consider  the 
strange  case  of  Paul  Needs  of  Lon- 
don, England.  Needs,  employed  as 
an  editor  for  Britain's  Prestel  video- 
tex system,  pleaded  guilty  to  ille- 
gally using  British  Telecom's 
electronic  mail  system  during  1986. 
Needs  pleaded  to  four  counts 
of  "theft  of  electricity,"  pulling  a 
$150  fine  for  each  count  (would  a 
dozen  or  so  Duracells  have  suf- 
ficed?), and  was  ordered  to  pay  an 
additional  $195  in  packet-switching 
charges.  After  the  January  decision. 
Needs'  computer  equipment,  im- 
pounded for  three  months,  was  re- 
turned to  him.  © 
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INSIGHT:  Atari 


Bill  Wilkinson 


Retry,  Retry,  Retry  Again 


In  the  past,  I  have  claimed  in  this 
colunnn  that  I  have  never  had  an 
Atari  disk  "crash"  on  me  if  I  wrote 
to  it  with  verify  turned  on.  Thanks 
to  the  little  display  panel  on  my 
Indus  drives,  I  finally  figured  out 
why,  A  couple  of  times  now,  I  have 
been  writing  programs  or  articles  to 
disk  (with  verify  turned  on)  and 
have  noticed  the  Indus  drive  indi- 
cate that  an  error  occurred.  Yet  nei- 
ther DOS  nor  BASIC  (nor  the  word 
processor)  have  reported  any  such 
error.  Why? 

Simple:  Because  of  a  safety  fea- 
ture in  Atari  DOS  called  a  retry 
counter.  Any  time  a  disk  operation 
fails.  Atari  DOS  tries  to  perform  the 
task  again.  In  fact,  it  tries  up  to  three 
more  times.  Now,  if  you  write  to  the 
disk  without  verify,  the  drive  may 
not  know  if  something  goes  wrong 
(for  example,  if  there  is  a  defective 
spot  on  the  disk).  So  you  don't  find 
out  that  the  write  failed  until  the 
next  day  (or  week  or  year),  when 
you  try  to  reread  the  data.  Kablooey! 
Even  the  fact  that  DOS  retries  the 
read  three  times  may  not  help. 

On  the  other  hand,  if  you  write 
with  verify  turned  on,  the  drive 
writes  the  information  to  the  disk 
and  then  immediately  reads  it  to  be 
sure  the  write  was  successful.  As- 
suming that  there  was  an  error, 
though,  you  would  seem  to  be  no 
better  off  than  you  were  without 
verify  mode  turned  on  except  that 
the  drive  tells  DOS  about  the  verify 
error  and  DOS  tries  again  (and 
again  and  again  if  it  needs  to)  to 
write  that  same  sector. 

Soft  Errors 

Usually,  disk  write  errors  are  what 
are  called  soft  errors.  That  is,  if  you 
try  again,  the  write  succeeds.  And 
after  three  attempts,  if  the  write  still 
fails,  that  disk  is  in  really  bad  shape 
(or  you  forgot  to  format  the  disk  or 
remove  the  write-protect  tab).  Well, 
very  few  of  my  disks  are  in  really 


bad  shape,  so  DOS  tries  again — 
and  I  don't  even  realize  that  I  had  a 
near  miss  with  a  blown  file. 

The  point  of  all  this  is  twofold: 
First,  I  would  like  to  try  to  convince 
anyone  doing  work  which  would 
require  a  long  time  to  reconstruct  to 
use  the  "write  with  verify"  mode. 
(If  you  are  using  DOS  2.5,  this  is 
easy,  since  the  SETUP.COM  pro- 
gram allows  you  to  choose  verify 
mode  with  just  a  few  keystrokes. 
DOS  2.0  users  can  type  POKE 
1913,87  and  then  make  the  change 
permanent  by  using  the  DOS 
menu's  WRITE  DOS  option.)  Sec- 
ond, although  three  retries  seem 
like  enough  for  any  write  opera- 
tion, I  have  had  a  few  disks  where  a 
file  seemed  "slightly"  damaged — 
that  is,  one  time  it  would  seem  to 
read  okay  and  the  next  time  it 
would  give  me  an  error  (usually 
ERROR  164).  Well,  1  really  should 
move  that  file  to  another  disk  (and  I 
do),  but  how  can  I  increase  my 
chances  that  I  can  read  it  well 
enough  to  do  the  transfer?  Answer: 
Change  the  number  of  retries  that 
DOS  makes. 

Time  for  another  program: 
Program  1  is  a  short  BASIC  pro- 
gram that  you  can  use  to  modify 
DOS  2,5's  retry  count  (and,  inci- 
dentally, turn  on  verify  mode  for 
writes).  Once  you  run  it,  all  DOS 
disk  operations  will  be  tried  as 
many  times  as  you  specify  until  you 
boot  DOS  again.  (And,  if  you 
would  like  to  make  the  changes 
permanent  on  a  given  disk,  just  an- 
swer the  question  in  the  program 
appropriately.  An  error  message 
from  this  operation  probably  indi- 
cates that  the  disk  was  full,  the  disk 
was  write-protected,  or  the 
DOS.SYS  file  was  locked.  In  any 
case,  try  another  disk.) 

Finally,  if  you  are  still  using 
DOS  2.0s  (or  DOS  XL,  most  ver- 
sions), just  change  three  lines  in  the 
listing.  I  doubt  seriously  that  either 


Atari  version  is  compatible  with 
any  other  DOS,  so  you  may  need  to 
experiment  and/or  contact  the 
publisher  of  your  DOS  to  change 
the  retry  counts.  Anyway,  the  three 
lines  to  change  are 

JS40  IF  PEEK  (  1932)  <:  >169  OR 

PEEK ( 1933) >10  THEN  230 
FC100  POKE  1933,RETRY 
N"  230  REM  »»«  APPARENTLY  NO 
T  DOS  2.0  *»« 

Random  Ramblings 

Unlike  most  personal  computers, 
the  Atari  8-bit  machines  use  a  hard- 
ware random  number  generator 
which  is  supposed  to  produce  bet- 
ter random  numbers  than  purely 
software  schemes.  Notice  the 
words  "supposed  to."  In  practice, 
the  hardware  random  number  gen- 
erator operates  in  a  fairly  predict- 
able manner,  and,  if  you  were  to 
take  two  values  from  it  in  very  close 
succession  ("very  close"  means  un- 
der a  dozen  microseconds  or  so), 
you  would  find  that  certain  values 
tend  to  follow  certain  other  values. 

Atari  BASIC  itself  pulls  a  pair 
of  hardware  random  numbers  in 
very  close  succession.  Most  of  the 
time,  the  results  of  the  bias  this 
creates  are  unnoticeable,  especially 
when  the  range  of  random  numbers 
you  want  is  under  200  or  so  (for 
reasons  too  complicated  to  go  into 
here).  But  look  at  what  happens 
when  you  run  Program  2.  If  BA- 
SIC'S RND  function  produced  truly 
random  results,  then  you  would  ex- 
pect the  four  counts  that  are  printed 
to  be  approximately  equal.  They  ob- 
viously aren't. 

My  suggested  solutions:  If  you 
are  a  BASIC  programmer  having 
problems  with  Atari's  randomness 
(and  remember,  most  of  you 
won't),  look  at  Program  3.  We 
avoid  the  RND  function  and  in- 
stead read  two  random  bytes  direct- 
ly from  the  hardware  register. 
Because  BASIC  takes  so  long  (rela-  j 
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COMPUTE!  Disk 
Subscriptions 

COMPUTE!  Disks  are 
available  for  the 
following  computers: 

•  Apple  II  series 

•  Commodor©  64  and  128 

•  Atari  400/800  /XL/XE 

•  IBM  PC  and  PCjr 

Each  error-free  disk 
contains  all  the 
prograrms  from  the 
previous  three  issues  of 
COMPUTE!.  With  a  disk 
subscription,  you'll 
receive  one  disk — for 
the  machine  you 
specify — every  three 
months.  To  subscribe, 
call  toll  free 
800-247-5470 
(in  Iowa  800-532-1272). 


Attention  all  FX80,  FXlOO,  JX.  RX,  &  MX  owners: 

You  already  own  half  of 
a  great  printer 


Dealer 
inquiries 
welcome. 


Now  for  $79.95  you  can  own 

the  rest.  You  see,  today's  new  dot 
matrix  printers  offer  a  lot  more. 

Like  an  NLQ  mode  that  makes 
their  letters  print  almost  as  sharp 
as  a  daisy  wheel.  And  font  switch- 
ing at  the  touch  of  a  button  in  over 
160  styles.  But  now,  a  Dots-Perfect 


Now 
Onl" 


upgrade  kit  will  make  your  printer 

work  like  the  new  models  in  min- 
utes— at  a  fraction  of  their  cost. 

And  FX,  JX  and  MX  models  will 
print  the  IBM  character  set,  too. 

So,  call  now  and  use  your  Visa, 
MasterCard,  or  AmerEx.  Don't 
replace  your  printer,  upgrade  it! 


1-800-368-7737 

In  California:  1-800-831-9772 


g 


Sample  of 
letter  with 
Dots -Perfect 


[Dots-Perfeci) 


Sample  of 

better  without 

Etots-Perfea 


g 


bDresselhaus 

837  E.  Alosta  Ave.,  Glendora,  CA  91740  Tel:  (818)  914-5831        ^ 

An  upgrade  kit  for  EPSON  FX,  JX,  RX,  &  MX  printers 


^ 


EPSON  IS  a  Irademark  of 
EPSON  Ameiica,  InC- 


tively  speaking)  to  do  this,  there  is 
plenty  of  time  between  the  PEEKs, 
and  the  generator  gives  pretty  good 
results.  For  machine  language  pro- 
grammers who  need  to  get  two  ran- 
dom numbers  in  quick  succession, 
try  a  sequence  like  this: 

LDA  RNDLOC  ;  get  first  random  byte 
STA  WSYNC     ;  wait  for  horizontal  sync 
LDX  RNDLOC  ;  get  second  random  byte 

Program  1 :  DOS  Reliability 
Enhancer 


pj  10 


DD  2  0 
Nn  30 


Kl  40 

PL  50 

CH  60 

BF  70 

ID  80 
m  90 


Fl  100 

OS  1  10 

FN  120 

BF  130 


REM 

TV  E 

DIM 

IF  P 

PEEK 

0 

IF  P 

PEEK 

POKE 

QN  V 

PRIN 

SHOU 

PRIN 

N  C0 

INPU 

IF  R 

OR 
THEN 
PDK 
PRI 
PRI 
MO 
PRI 


ttt*  DOS  R 
NHANCER  t« 
Q«  (  i  > 

EEK  (  I-JIS)  < 
(1913K  >a7 


EEK< 
(  194 

191 
ERIF 
T  "H 
LD  D 
T  "A 

TO 
T  RE 
ETRY 
RETR 

RUN 
E  19 
NT 
NT 

DIFY 
NT  '• 


1947) < 
S)  >i0 

3, 87: R 
Y  MODE 
OW  MAN 
OS  RET 

DISK 
10)  " ; 
TRY 
<0  OR 
Y<  >INT 

48, RET 
PRINT 
DO  YDU 
THE  D 
THE 


ELIABILI 
** 

>a0  AND 
THEN  23 

>169  OR 
THEN  230 
EM  TURN 

Y  TIMES 

RY" 

OPERATID 


RETRY>10 
(RETRY) 

RY 

WANT  TO 
OS  ON" 
DISK  IN 


DRIVE  1   (Y/N)   '■  ; 
EE  140  INPUT  Q»!lF  Q»<>"Y"  T 

HEN  STOP 
Ff  150  TRAP  200 
HP  160  OPEN  #1  ,  B,  0,  "Dl:  DOS.S 

YS" 
EC  170  CLOSE  #1 
FI  1B0  PRINT  SPRINT  "DOS  MOD 

IFIED" 
Ha  190  END 
SB  200  PRINT  "ERROR  WHILE  TR 

YIN8  TO  MODIFY  DOS  ON 

PB210  PRINT  "   DISK  IN  DRIV 

E  1.    ERROR  #";PEEK(1 

95) 
8L220  END 
08  230  REM  **«  APPARENTLY  NO 

T  DOS  2.5  *«« 
D!  240  PRINT  "INCOMPATIBLE  W 

ITH  THIS  DOS" 
60  2S0  END 

Program  2:  Random  Number 
Generator  Test 


BP  100 


JE  1  10 

HN  120 


BA  130 
PE  140 
10  150 
CE  160 

NP  170 
An  180 

m  190 


U   200 


DIM  TEST(3):FDR  1=0  T 

0  3; TEST  CI ) -0: NEXT  I 

FOR  1=1  TO  1000 

R=INT(RND(0)»65535/12 

8+0. 5) 

T=INT(R/4) :R=R-Tt4 

TEST<R>"TeST (R) +1 

NEXT  I 

PRINT 

PRINT  "VALUE", "COUNT" 

FOR  1=0  TO  3 

PRINT  I.TESTCI) 

NEXT  I 


Program  3:  Improved 
Random  t4umber  Routine 

BP  100  DIM  TEST(3):FDR  1=0  T 

O  3: TEST ( I)=0: NEXT  I 

JE  1  10  FOR  1  =  1  TO  1000 

Sit  120  R  =  PEEK<53770)  «256  +  PEE 

K (53770) 

6(1130  T=INT  (R/4)  :  R»R-T«4 

PE  140  TEST  CR)  =TEST  (R) +1 

BO  150  NEXT  I 

CE  160  PRINT 

NP170  PRINT  "VALUE",  "COUNT" 

AN  1B0  FOR  1=0  TO  3 

H6  190  PRINT  I  ,  TEST  (  I  ) 

BC  200  NEXT  I  @ 


Attention  Programmers 

COMPUTEI  magazine  is  currently 
looking  for  quality  articles  on 
Commodore,  Atari,  Apple, 
and  IBM  computers  (including 
the  Commodore  Amiga  and 
Atari  ST),  If  you  have  an 
interesting  home  application, 
educational  program, 
programming  utility,  or  game, 
submit  it  to  COMPUTEI,  P.O, 
Box  5406,  Greensboro,  NC 
27403.  Or  write  for  a  copy  of 
our  "Writer's  Guidelines." 


Amiga  Jigsaw 

This  game  for  the  Amiga  from  the 
February  1987  issue  (p.  46)  is  a 
puzzle  with  a  missing  piece.  In  ad- 
dition to  the  problem  of  misplaced 
lines  described  in  last  month's 
"CAPUTE!"  column,  an  important 
subroutine  was  also  left  out.  For  a 
functioning  version,  rearrange  the 
program  as  described  last  month, 
then  add  the  following  lines: 

CoLr  .Shift  :■« 

coLr .  indi>x=(coLr.  index+l )  MOD  nc 

oLrs* 

FOR  j=0  TO  ncoLrs-l* 

i=(coLr . tndex+ j )  MOD  ncoLrs< 

PALETTE  j+6,coLrs( i, 1) ,coLrs( i, 2 

) , coLrs{ i, 3)« 

NEXT-* 

RETURN-*  ^ 


1  CAPUTE!  IF 


Wari 

All  versions  of  this  game  program 
from  the  February  issue  (p.  62)  suf- 
fer from  the  same  quirk;  The  game 
doesn't  play  according  to  its  stated 
rules.  When  12  or  more  counters 
are  sown  from  a  compartment,  the 
starting  compartment  should  be 
skipped  as  the  counters  are  sown 
around  the  board.  (The  starting 
compartment  should  contain  zero 
counters  after  the  sowing  is  com- 
pleted.) This  is  not  the  case  with 
any  of  the  versions  as  published.  If 
you  enjoy  the  game  the  way  it  is,  no 
change  is  required.  To  make  the 
game  obey  the  stated  rule,  add  the 
appropriate  line. 

Program  1  (Commodore  64): 
1335  IF  7  =  1  THEN  1320 
Program  2  (Apple  II  series): 
1365  IF  T  =  I  THEN  1350 
Program  3  (Atari  ST): 
1375  IF  T  =  I  THEN  1360 
Program  4  (IBM  PC/PCjr): 
1305  IF  T  =  I  THEN  1290 
Program  5  (Amiga): 
In    the    movecounters:    subroutine, 
add  the  label  addone:  immediately 
before  the  line  that  reads  t  =  t-l-l; 
then  add  the  line  IF  t  =  i  THEN 
addone  following  the  existing  line 
that  reads  IF  t>12  THEN  t=l. 

Program  6  (Atari  400,  800,  XL,  XE): 
1325  IF  T  =  I  THEN  1310 


Simple  Banners 

For  IBM  PC/PCjr 


Vic  NeupQuer 


With  just  a  few  modifications,  a  screen 
graphics  program  for  the  IBM  PC/ 
PCjr  can  be  used  to  print  paper  ban- 
ners. A  dot-matrix  printer  is  required. 
You  must  also  have  BASIC  for  the  IBM 
PC  or  cartridge  BASIC  for  the  PCjr. 


After  using  the  program  "IBM  PC/ 
PCjr  One-Liner"  from  the  Decem- 
ber 1986  issue  of  COMPUTE!,  I  de- 
cided to  modify  the  program  into 
one  that  adults  could  use.  The  re- 
sult is  an  easily  modified  program 
that  prints  banners  on  a  dot-matrix 
printer.  By  following  the  instruc- 
tions on  the  screen,  you'll  see  how 
easy  it  is  to  use  "Simple  Banners." 

The  modified  program  uses  es- 
sentially the  same  routine  as  the 
original,  but  it  stores  the  characters 
in  the  array  A$.  Several  other  fea- 
tures were  added  to  choose  the  type 
and  size  of  print  and  to  allow  a 
longer  message.  The  characters  in 
the  A$  array  are  printed  sideways 
on  the  paper.  The  message  can  be 
as  long  as  255  characters. 

Anyone  using  a  non-IBM  print- 
er may  need  to  change  the  value  of 
T  in  lines  20  and  30,  since  some 
printers  cannot  print  the  solid  block 
character.  Choose  the  ASCII  value 
of  the  new  character  you  wish  to 
use;  then  subtract  32  from  that  val- 
ue to  get  the  new  value  for  T. 

Simple  Banners  For  IBM 
PC/PCjr 

For  instructions  on  entering  ttiis  program, 
please  refer  to  "COMPUTEI's  Guide  to  Typing 
In  Programs"  elsewhere  in  this  issue. 

DP    10    KEY    0FF:DII>1    A*(8> 

PD  20  CLS:PRINT"Chaose  One":PRIN 
T:T=144:PRINT"E=End  Pragra 
m"!PRINT"L=Ligtit    Print":PR 


INT"M=Medium    Print ": PRINT" 
D=Dark    Print": PRINT: INPUT 
PI*:  IF    A*="D"    OR    Pl$="d"    THE 
N    T=tS7 
NC   30    IF    ft*-"M"    OR    ft«="m"    THEN    T 

=  174 
l!P   40    IF    A«="E"    OR    A*="e"    THEN    C 

LS:END 
m   50  PRINT: INPUT"Letter  Size  1 
-  9  Inches  " j X«! SIZE=VAL(X 
«1 
PP  60  IF  SIZE<1  THEN  SIZE=1 
C6  70  IF  SIZE>9  THEN  3IZE=9 
IM  30    Q=25-(SIZE«2) 
m   90  WIDE=INT(SIZE/2) : IF  WIDE<1 

THEN  WIDE=1 
DO  180  PRINT:  LINE  INPUT"Enter  fie 

ssage  ",L*:IF  LENtLSXl  0 

R  LEN(L»)>255  THEN  20 
JB  110  CLS:DEF  SEB=i(HFFA6 
HO  120  FOR  X  =  l  TO  LEtvf  (L$)  :  N=ASC  ( 

MID«(Lt,X, 1) ) :C=8 
<i    130  FOR  L=0  TO  7 
NE  140  B=(N*B)-fL-H4:A=PEEK(B)  :A« 

(C)="" 
n    150  FOR  J  =  0  TD  7:M=A  AND  1 :  W= 

32+<M*T) 
it    160  AS  (C)=CHR*(W)  ■i-A«<C) 
XK  170  A=(A-M)  /2 
OB  180  NEXT  J 
£f  190  PRINT  A4(C):C=C-1 
OB  200  NEXT  L 
KO  210  FOR  1  =  1  TO  3 
60  220  FOR  Z=l  TO  WIDEiLPRINT  BP 

C(Q)  ; 
LE  230  FOR  K=l  TO  8 
CS  240  B*="":REM  INCREASE  SIZE  0 

F  PRINTED  LETTERS 
CE  250  FOR  S=l  TO  SI  ZE:  B4=B«-fMID 

«(A«(K> ,1,1) :NEXT  S 
CB  260  LPRINT  BS; 
EP  270  NEXT  K:  LPRINT 
IC  200  NEXT  Z 
DP  290  NEXT  I:  LPRINT 
BP  300  NEXT  X 
OJ  310  CLS:FDR  X  =  l  TO  8:  LPRINT:  N 

EXT  X:GOTD  20  -» 
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Easy  BASIC 
Autoboot 


This  utility  for  eight-bit  Atari  com- 
puters lets  you  run  any  Atari  BASIC 
program  automatically  when  you  boot 
up  the  system.  For  Atari  DOS  ver- 
sions 2.0  and  higher, 


How  do  you  make  a  BASIC  pro- 
gram start  up  automatically  when 
you  boot  up  the  computer?  If  you 
want  a  machine  language  program 
to  start,  it's  easy.  Just  rename  the 
program  file  as  AUTORUN.SYS;  as 
soon  as  the  computer  boots  DOS,  it 
loads  and  runs  AUTORUN.SYS. 
But  that  method  doesn't  work  for 
BASIC  files.  "Easy  BASIC  Auto- 
boot" lets  you  make  any  BASIC 
program  into  an  autobooting  file, 
even  if  you  don't  understand  all  the 
ins  and  outs  of  AUTORUN.SYS 
and  the  boot  process. 

Type  in  the  program  and  save 
it;  then  insert  the  disk  that  contains 
the  program  you  want  to  start  auto- 
matically. When  you  run  the  pro- 
gram, it  asks  you  to  enter  the 
BASIC  statement  you  want  to  exe- 
cute when  the  system  boots  up. 
You  can  include  any  BASIC  com- 
mand or  commands  up  to  27  char- 
acters in  length. 

For  instance,  if  you  want  to 
autorun  the  BASIC  program  named 
SAMPLE,  just  type  RUN"D:SAM- 
PLE.BAS".  To  autorun  a  different 


Ron  Goodman 


program,  simply  replace  SAMPLE 
with  the  filename  of  your  choice. 
You  can  also  perform  commands 
that  don't  involve  running  a  pro- 
gram. For  example,  to  start  in 
graphics  mode  8,  just  type  GRAPH- 
ICS 8  at  the  prompt.  When  the  sys- 
tem boots,  you'll  be  in  GRAPHICS 
8  instead  of  GRAPHICS  0. 

This  program  creates  a  special 
AUTORUN.SYS  file  on  the  disk. 
The  AUTORUN.SYS  file  contains  a 
short  machine  language  program 
that  is  temporarily  placed  in  page  6 
memory  during  the  boot  process. 
The  machine  code  first  checks  if 
there  is  a  cartridge  in  place.  If  there 
isn't,  it  loads  DOS  normally.  If  a 
cartridge  is  present,  however,  it  dis- 
plays and  executes  the  command 
you  specified  when  creating  the 
file. 

Easy  BASIC  Aufoboot 

For  instnjctions  on  entering  this  program, 
please  refer  to  "COMPUTE!'!  Guide  1o  Typing 
In  Programs"  In  tliis  issue  of  coivIputei. 

FF  10  GRAPHICS  0:SETCDLOR  2, 
0,0:7  "This  program  wi 
11  create  a":?  "ftUTDRU 
N.SYS  file  on  a  disk  t 
hat  will" 

EC  20  ?  "BXBCLite  any  BASIC  c 
ommande":?  "automatica 
ly  on  bootup." 

FL  30  ?  :7  "This  includes  go 
mmands  like:":?  " 
<3  SPACES}RUN";CHR* (34 


)  ;  "D:FILEr4AME.BAS"!CHR 

S<34) 
CE  40  ?  :DIM  B*  (27  )  ,  A*  (  3B) 
£B  50  7  "Enter  the  line  you 

want  executed.":?  "  "; 

I  FDR  X  =  l  TO  27:7  "_" ;  ! 

NEXT  X;?  :TRAP  50:INPU 

T  B«:IF  B*=""  THEN  50 
NH  55  A»»"P0KEB42,  12:  '■  :  A«  (  12 

KS  57  ?  :?  "Command  will  be 

written  as: " : 7  B* 
no  60  7  :?  "Put  the  disl<  tha 
t  you  want  the":?  "AUT 
ORUN.SYS  -file  on  and  p 
ress  RETURN. ": INPUT  B« 
PJ  70  OPEN  #4,  8,0,  "D:  AUTORUN 

.  SYS" 
CI  80  FOR  X  =  l  TO  4:READ  A :  PU 
T  #4,A:NEXT  X;PUT  #4,L 
EN (A») +34 
HP  90  FOR  X  =  l  TO  34:R£AD  A:P 

UT  #4,A:NEXT  X 
NK  100  M  =  PEEK  (88)+PEEK(B9)  (2 

56 
EC  110  FDR  X  =  l  TO  LEN(A»);PD 
SITION  0,0:7  A*(X,X>; 
; PUT  #4,PEEK(M) :NEXT 
X 
HK  120  FDR  X  =  l  TO  BsREAD  AsP 

UT  #4,A:NEXT  X 
DF  130  CLOSE  #4:PDKE  f1,0lPOS 

ITION  2,23 
DA  1000  DATA  255,255,0,6,6,1 

65,6, 240, 36 
FD  1010  DATA  169,13,141,74,3 
, 165, 88, 24, 105,82, 13 
3, 203, 165 
EB  1020  DATA  99,133,204,160, 
0, 185, 33,6, 240,5, 145 
,2  03,200,208,246,9  6 
BK  1030  DATA  0,0,224,2,225,2 
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HyperScan 

A  Full-Featured  Mandelbrot 
Graphics  Program 


This  sophisticated,  full-featured 
Commodore  64  program  lets  you  ex- 
plore the  fascinating  Mandelbrot 
set — a  mathematical  object  which 
forms  the  basis  of  some  stunning 
graphic  designs.  A  disk  drive  is  re- 
quired to  save  and  reload  graphics 
screens.  If  you  wish  to  print  out 
graphics  screens,  you  must  have  a 
Commodore-compatible  printer  capa- 
ble of  printing  bitmapped  graphics. 


"HyperScan"  opens  a  window  onto 
the  world  of  the  Mandelbrot  set, 
which  has  been  called  the  nnost 
complicated  object  in  mathematics. 
HyperScan  takes  care  of  the  com- 
plex math  and  lets  you  explore  the 
fascinating  and  intricate  pictures 
and  places  to  be  found  within  this 
world.  In  fact,  with  HyperScan  you 
can  find  patterns  and  images  that 
no  one  has  ever  seen  before  and  be 
an  explorer  in  the  truest  sense  of  the 
word. 

Getting  Started 

HyperScan  is  written  in  two  parts: 
Program  1  is  a  BASIC  program  and 
Program  2  is  written  in  machine 
language.  When  you  run  Program 
1,  it  loads  and  activates  Program  2 
automatically. 

Type  in  and  save  both  pro- 
grams. Program  2  must  be  entered 
with  "MLX,"  the  machine  language 
entry  program  listed  elsewhere  in 
this  issue.  When  you  run  MLX, 
you'll  be  asked  for  starting  and  end- 


Kenneth  W.  Shepard 

ing  addresses  for  the  data  you'll  be 
entering.  Here  are  the  addresses  to 
use  for  Program  2: 

Starting  address:     COOO 
Ending  address:      CA2F 

Follow  the  MLX  instructions 
carefully  and  be  sure  to  save  the 
program  before  you  exit  MLX.  You 
must  save  Program  2  with  the  file- 
name HS.MAC  because  that  is  the 
name  used  by  Program  1  when  it 
loads  Program  2.  After  you  save  the 
programs,  load  and  run  Program  1 . 
HyperScan  begins  by  displaying  its 
help  screen,  followed  by  its  com- 
mand prompt.  The  command 
prompt  is  where  you  enter  Hyper- 
Scan commands.  You  can  summon 
the  help  screen  at  any  time  by  typ- 
ing HELP  at  the  prompt  and  press- 
ing RETURN.  Like  other 
commands,  HELP  can  be  abbreviat- 
ed (as  H).  On  the  help  screen,  the 
abbreviation  for  each  command  is 
shown  in  reverse  video. 

Ttie  World  Map 

The  first  time  you  run  HyperScan, 
you'll  want  to  start  with  a  SCAN 
command.  Enter  SCAN  at  the  com- 
mand line.  HyperScan  begins  scan- 
ning and  simultaneously  displays 
the  results  as  a  multicolor  contour 
map.  In  a  few  moments,  HyperScan 
completes  the  scan,  giving  you  an 
overall  view  of  the  world  of  the 
Mandelbrot  set. 

In  the  middle  of  the  world  map 
is  a  strangely  shaped  central  pla- 
teau, shown  in  red,  surrounded  by 
terrain  that  becomes  very  steep  and 


complex  along  the  edges  of  the  pla- 
teau. The  edge  regions  contain  the 
most  interesting  features.  One 
striking  aspect  of  this  world  is  that 
it's  infinitely  detailed — as  a  portion 
is  magnified,  more  and  more  struc- 
ture and  form  are  revealed.  Hyper- 
Scan is  a  very  powerful  exploratory 
tool,  since  it  is  capable  of  magnify- 
ing portions  of  the  overall  view 
more  than  100,000  times. 

When  the  map  is  complete, 
press  the  fl  function  key  several 
times:  This  command  toggles  the 
display  between  text  and  graphics. 
You  can  enter  commands  from 
graphics  mode,  but  the  results  can 
be  seen  only  from  text  mode. 

Since  you  may  often  begin  ex- 
ploration from  the  world  map,  you 
should  save  this  map  to  disk  with  the 
PUTMAP  command.  When  Hyper- 
Scan prompts  you  for  a  filename, 
enter  the  name  WORLD. MAP  and 
press  RETURN.  The  disk  drive 
spins  as  the  map  is  saved.  Now  you 
can  recall  the  map  at  any  time  with 
a  GETMAP  command.  Again,  keep 
in  mind  that  these  commands  can 
be  abbreviated. 

Delving  Deeper 

The  FRAME  command  allows  you 
to  delve  deeper  into  the  Mandelbrot 
world.  When  you  enter  this  com- 
mand, four  cross-shaped  markers 
appear  on  the  graphics  screen.  You 
can  move  the  frame  around  the 
screen  by  using  the  cursor  keys  in 
the  usual  way.  To  resize  the  frame, 
press  B  to  make  it  bigger  or  S  to 
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A  view  of  ihe  Mandelbrot  world  map 

created  by  "HyperScon,"  a  sophisticated 
graphics  program.  More  interesting 
screens  are  created  by  magnifying 
selected  portions  of  this  world  view. 


make  it  smaller.  The  C  key  changes 
the  marker  colors  in  case  they  be- 
come difficult  to  see  against  the 
graphics  background. 

Move  and  size  the  frarrie  to 
enclose  an  area  that  you  would  like 
to  explore  more  closely.  Once  you 
have  chosen  an  interesting  region, 
press  X  to  set  the  new  coordinates. 
The  markers  disappear.  To  exit 
frame  mode,  press  Q- 

Now  press  fl  to  return  to  text 
mode  and  perform  another  scan. 
HyperScan  begins  scanning  the 
new  area.  By  repeating  the  FRAME 
and  SCAN  sequence,  you  can  ob- 
tain higher  and  higher  magnifica- 
tion, burrowing  deeper  and  deeper 
into  the  Mandelbrot  set.  Before  go- 
ing much  further,  however,  you'll 
need  some  of  the  more  advanced 
features  of  HyperScan. 

Infinite  Detail 

Since  the  Mandelbrot  set  is  a  math- 
ematical object,  it  has,  in  a  sense,  an 
existence  of  its  own.  No  one  has 
seen,  or  is  likely  ever  to  see,  all  of  it. 
The  analogy  of  exploring  a  new 
world  is  a  good  one.  Scanning  the 
full  area  available  to  HyperScan  at 
the  highest  useful  magnification 
would  produce  several  billion  full- 
screen maps — so  there  is  a  lot  of 
virgin  territory  to  be  explored. 

HyperScan  calculates  the  "alti- 
tude of  the  terrain"  around  the 
Mandelbrot  set  with  a  special  fixed- 
point  multiplication  algorithm  that 
achieves  high  speed  and  also  uses  a 
lot  of  memory.  A  high-altitude, 
high-resolution  scan  can  take  sev- 
eral hours  to  perform.  During  this 
time,  your  64  is  performing  roughly 
4000  multibyte  arithmetic  opera- 
tions every  second. 


This  screen  shows  a  highly  magnified 
portion  of  the  Mandelbrot  set — an  enor- 
mously detailed  mathematical  object. 


If  you  are  interested  in  the 
mathematical  basis  of  HyperScan 
and  the  properties  of  the  Mandel- 
brot set,  read  the  "Computer  Re- 
creations" column  in  the  August 
1985  issue  of  Scientific  American. 

The  following  sections  list  all 
of  the  HyperScan  commands. 

Scanning  Commands 

SCAN.  Scans  the  current  coordi- 
nates and  displays  a  contour  map 
according  to  the  current  parameters. 
LIMIT,  Sets  the  altitude  limit  for 
scanning.  The  initial  setting  is  20 
and  the  maximum  legal  value  is 
767.  The  higher  the  altitude,  the 
longer  it  takes  to  complete  the  scan, 
so  you  should  experiment  with  the 
limit  to  give  the  best  results  for  the 
particular  terrain  you  are  exploring. 
If  the  actual  altitude  exceeds  the 
limit,  the  scanning  routine  returns 
an  altitude  value  of  zero. 
COLORS.  This  command  lets  you 
choose  four  map  colors  and  the  bor- 
der color.  In  the  hi-res  graphics 
mode,  only  colors  1  and  4  are  used. 
Changing  colors  affects  the  current 
map. 

CONTOURS.  Assigns  a  color  to  a 
range  of  altitudes.  Up  to  85  differ- 
ent ranges  can  be  specified.  The 
default  assignment  is  color  1  for 
even  altitudes  (2,  4,  6,  and  so  on) 
and  color  2  for  odd  altitudes.  Re- 
member to  assign  the  color  for  the 
altitudes  exceeding  the  limit  to  the 
value  zero  (for  instance,  4,0^0). 
MODE.  Allows  you  to  select  one  of 
the  three  available  graphics  modes. 
The  HIRES  mode  includes  two  col- 
ors on  a  320  X  200  screen;  this  is 
suitable  for  examining  very  fine  de- 
tail.  The   MULTICOLOR  mode 


Close-up  views  of  the  Mandelbrot  set 
reveal  a  highly  intricate  world  of  form 
and  color. 


gives  the  most  colorful  display, 
with  four  colors  on  a  160  X  200 
screen.  The  LORES  mode  is  best  for 
performing  a  fast,  preliminary  scan 
of  an  area;  it  has  four  colors  on  a 
40  X  50  grid. 

FRAME.  FRAME  mode  lets  you  se- 
lect a  portion  of  the  current  map 
visually  and  set  new  range  coordi- 
nates automatically. 
RANGE.  The  RANGE  command 
permits  you  to  enter  new  coordi- 
nates manually,  rather  than  auto- 
matically, as  with  the  FRAME 
command.  Both  the  vertical  and  the 
horizontal  coordinates  must  be 
within  the  range  —2  to  2. 
STATUS.  Lists  the  current  values 
of  all  parameters. 

Disic  Commands 

HyperScan  provides  several  com- 
mands for  loading  and  saving  maps 
and  performing  disk  maintenance. 

DISK.  The  DISK  command  can  also 
be  activated  by  pressing  the  f3  key. 
It  returns  you  to  the  text  screen  and 
prompts  you  to  enter  a  disk  com- 
mand. To  view  the  disk  directory, 
type  $  and  press  RETURN.  Other 
disk  commands  can  be  entered  as 
described  in  your  disk  drive  man- 
ual. For  instance,  the  command  10 
initializes  the  current  disk.  The 
command  SO:  followed  by  a  file- 
name scratches  the  designated  file 
from  disk,  and  so  on.  If  you  press 
RETURN  at  the  prompt  without 
typing  anything,  HyperScan  dis- 
plays the  drive's  error  status  (the 
message  OK  means  that  all  is  well). 
PUTMAP.  Saves  the  current  map 
as  a  sequential  (SEQ)  disk  file.  The 
filename  must  end  with  the  charac- 
ters .MAP  (a  period  followed  by 
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MAP)  so  that  HyperScan  can  recog- 
nize it  as  a  map  file. 
GETMAP.  Retrieves  the  designat- 
ed map  from  disk  and  displays  it. 
DSCAN,  This  command  performs 
the  same  function  as  SCAN,  except 
that  the  raw  altitude  data  is  saved  to 
disk  in  addition  to  being  displayed 
on  a  map. 

DLOAD.  With  DLOAD,  you  can 
map  a  DSCAN  altitude  data  file 
with  different  color  values  and  con- 
tour intervals.  You  can  also  map  a 
HIRES  file  in  MULTICOLOR 
mode.  The  advantage  of  this  pro- 
cess is  that  it  is  much  faster  than 
SCAN,  which  can  take  several 
hours  to  scan  complex,  high-altitude 
terrain.  DLOADing  an  existing  alti- 
tude file  lets  you  find  the  best  way 
to  map  and  display  an  area  without 
wasting  time. 

Miscellaneous  Commands 

PRINT.  Prints  the  current  graphics 
display  on  a  dot-matrix  printer.  You 
must  have  a  printer  capable  of 
printing  bitmapped  graphics.  Dif- 
ferent combinations  of  printers  and 
printer  interfaces  may  produce  dif- 
ferent vertical  scales,  If  the  printout 
seems  squashed  or  stretched  unnat- 
urally, try  changing  the  value  of  the 
variable  PL  in  line  41  of  Hyper- 
Scan.  The  smaller  the  value  of  PL, 
the  taller  the  printout  will  be. 
is.  The  f5  key  allows  you  to  abort 
any  SCAN,  DSCAN,  DLOAD,  or 
PRINT  process  and  return  to  text 
mode. 

fl.  This  key  toggles  between  graph- 
ics and  text  display  modes.  You  can 
also  enter  TOGGLE  from  the  com- 
mand prompt. 

Program  1 :  HyperScan 

For  Instructtons  on  entering  this  program, 
please  refer  to  "COMPUTE  I's  Guide  to  Typing 
in  Programs"  elsewhere  in  this  issue. 


1:PRINT"L0ADIN 
. ": LOAD "HS. MAC 


JR  1  IFQ=0THENQ 

G  HS.I^IAC.  . 

".8,1 
DK    2    POKE532ai,0:POKE53280,0:P 

RINT  "  [  CLR  J  I  GRN  }  HYP  ER-SCAN 
"?:SYS505 

21  SPRINT" lUP}" 
XQ    3    DIM   TL%(256),CL${17) :CL$= 

"(BLK) {WHTJ {RED} [ CYN } 

[PUR]  [GRN}  {BLU}  [YEDEIH 

E2|B33E43E53B63i73B8g":Ml 

?  =  "(RVSJE15  tHopf)  (grn}" 

FM  4  GOSUB52:RS=CHR?(13) :DS=CH 
R5(20) :QS=CHRS(34) 

FB  5  CS5="Cl RIGHT) {left! {DOWN} 
{ UP JBSXQ": DATA "FRAME", "GE 


TMAP", "HELP", "LIMIT", "HOD 
E", "QUIT", "RANGE" 
XJ  6  DATA"TOGGLE", "DISK", "DLOA 
D", "DSCAN", "PRINT", "PUTMA 
P", "SCAN", "STATUS" 
OA  7  DATA "COLORS", "CONTOURS", 3 

,13,20,4 
CA  8  E1?="{RVS)DISK  ERR0R[0FF) 
":E2S="(RVS) IMPROPER  VALU 
E  -  RE-DO{OFF}":HD=2:LM=2 
0 
JA  9  CR=-2:DR=3:CI=-1.25:DI=2. 
5 : CL% ( 1 ) =6 : CL% ( 2 ) =14 ! CL% ( 
3)-7:CL%(4)=9:BC=14 
JS  10  RT=51968:S1=50429:FORI=0 
T016:READCL5( I ) :Z5=2S+" 
{ SPACE } " : E5=E$+D5 : NEXTI 
AH  II  FORI=0TO3;READTL%(I) :NEX 
TI:GOSUB93:POKE53064,0:Z 
$=Z?+ES+">":G0T0114 
BD  12  SYSSl: PRINT :GOSUB93:SYS5 

0553: RETURN 
QG  13  SYSSl :IO5="R":GOSUB108:I 

FDS  <>  0THENRETURN 
RK  14  INPUT#e,A?:IFA?<>".DTA"T 
HENCL0SE8 ;CL0SS15 : PRINT " 
{RVS}  NOT  .DTA  FILETYPE 
{SPACE) {OFF}":HETURN 
XJ  15  POKE50596,96:INPUT#8,X,L 
M,GR,DR,CI,DI:IFX<>10RMD 
<>  2  THENMD=X : GOTOl 9 
BP  16  PRINT"HIRES  FILE  -  WANT 
(SPACE  J  MULTICOLOR  DISPLA 
Y":PRINT"(Y  OR  N)?  ";:M5 

AA  17  GOSUB152!lFC$="Y"THENPOK 

E50596,76 
PM  18  IFC$<>"Y"THENMD=X 
KX  19  GOSUB93:SYS50545:CLOSE8: 

CLOSE 15 
PA  20  RETURN 
DB  21  SYSSl:IO$="V7":GOSUB108rI 

FDS <> 0THENRETURN 
MF  22  GOSUB93:PRINT#8, ".DTA"?R 

$ ; MD?  R5 ; LM; R$ ; CR; R$ ; DR; R 

?rCI;R5rDI;R$; 
FS  23  SYS50549 :CLOSE8:CLOSE15 : 

RETURN 
GS  24  SYSSl :PRINTR$R5"H0DE="rM 

D;R?"LIMIT="fLM 

PX  25  PRINT"H0R13="rCR;R$"HRAN 
GE= "; DR : PRINT " VERT= " ; CI ; 
RS "VRANGE=" ;DI SPRINT 

FH  26  FORI =1T04 SPRINT "COLOR" I" 
{3  LEFT) ( (RIGHT) )="CL%( I 
) ,HID?(CLS,CLI(I)+1,1)" 
(RVSl (4  SPACES) {OFF) 
(GRN}" sNEXTI 

CB  2  7  PRINT "BORDER  COL0R="BC,M 
ID5(CL?,BC+1,1); "{RVSl 
[4  SPACES) {OFF} (GRN)" 

JR  28  PRINT:PRINT"CONTOUR  :":P 
RINT" INTERVAL:" :PRINT"LI 
MITS(2  SPACES}: {3  UP}" 

QD  29  PRINT,"  COLOR","  LOWER 
(5  SPACES) UPPER": 1=0 

CE  30  X=TL%(I) :IFX=0ORI>2  54THE 
NP RINT: RETURN 

SO  31  PRINT, X;HID5(CL$,CL%(X)+ 
1,1); "{RVSJ (4  SPACES} 
(OFF) {GRN)",TL%(I+1),TL% 
(1+2) :I  =  I+3  5GOTO30 

GG  32  PRINT:IF(PEEK(53265)AND3 
2 ) <>  0THENSYSS1 : RETURN 

GJ  33  .SYS50269:  RETURN 

FJ  34  SYSSlsPRINT": (1=HIRES,2= 
MC0L,4=L0RES)="; sINPUTX 

RK  35  IFX01ANDX02ANDX04THEN 
PRINT" [RVS }* IMPROPER  VAL 
UE*{OFFi "j RETURN 

JK  36  MD=X:GOTQ93 


BJ 

37 

BR 

38 

FS 

39 

PB 

40 

DJ 

41 

MG 

42 

SJ 

43 

PM 

44 

XQ 

45 

XQ  46 

QE  47 
AC  48 

GE  49 


AG  50 
JS  51 
AC  5  2 


GE  53 

PJ  54 

CF  55 

RH  56 

SM  5  7 

EG  58 

CE  59 

HB  60 

CS  61 

HF  62 

BB  63 

XK  64 

HP  65 

JM  66 

FS  67 


SYSSl sINPUT":  COUNT  LIHI 

T=",-X 

IFX<0QRX>76  7THENPRINT" 

I RVS}* IMPROPER  VALUE* 

{OFF)": RETURN 

LM=X:TL%(0)=0:GOSUB93:GO 

T0131 

REM**TO  INCREASE/DECREAS 

E  LENGTH  OF 

REM**SCREEN  PRINTOUT,  DE 

C/INC  PL 

PL=160:POKE53068,INT(PL/ 

256) !POKE53069,PL-IKT(PL 

/256) 

PRINT  :  0PEN4  ,  4  :  PRINT#4 :  SY 

SS1437iPRINTi*4 

PRINT#4 , SPC( 33 ) ; "HYPER-S 

CAN  MAP" 

A$="H0RIZ="+STR?(CR)+"  H 

RNG="+STRS(DR)+" 

{2  SPACES )VERT="+STR$ (CI 

)+"  VRNG="+STR$(DI) 

PRINT#4,SPC(INT( (80-LEN( 

AS) )/2+.5)) ;A$:PRINT#4:P 

RINT#4 : CL0SE4  s  RETURN 

SYSSl: PRINT": DISK  COHHAN 

Ds  "; 

GOSUB 1 5  2 : PRINT : I FC5= " 5 " T 

[IENG0T0146 

OPEN15,8,15,C5:INPUT#15, 

E,E?  SCL0SE15  slFEOOTHENP 

RINTEi$; 

PRINTE.E?: RETURN 

SYSSl  SPRINT 

PRINT " { RVS } FI {OFF  j / { RVS ) 

T(0FF}0GGLE  -  TOGGLES  CO 

MMAND/ DISPLAY  MODE" 

PRINT"{Up1 (RVS)F3{0FF}/ 

(RVS)DI{0FF}SK  -  ACCESSE 

S  DISK  DRIVE" 

PRINT "{ RVS )F5{ OFF}  -  ABO 

RTS  SCAN , DSCAN , DLOAD , and 

PRINT" 
PRINT "  {  DOVJN  }  (  RVS  }  SC  ( OFF  ) 
AN  -  CALCULATES  ALTITUDE 

AND  MAPS" 
PRINT "{ RVS }DS{ OFF) CAN  - 
(SPACE) SCANS  AND  SAVES  D 
ATA  TO  DISK" 
PRINT" (RVS )DL{OFF}OAD  - 
(SPACE} MAPS  DATA  FROM  DI 
SK  FILE" 
PRINT" {RVS }G (OFF }ETMAP  - 

RETRIEVES  MAP  FROM  DISK 

FILE" 
PRINT" {RVS )PU{ OFF) TMAP  - 

SAVES  MAP  TO  DISK" 
PRINT" ( RVS }L{ OFF )IMIT  - 
{ SPACE JSETS  ALTITUDE  LIM 
IT" 
PRINT" {RVS} CON {OFF} TOURS 

-  SET  MAP  CONTOUR  INTER 
VALS" 
PRINT" (RVS }COL{ OFF )ORS  - 

SET  MAP  COLORS" 
PRINT" {RVS}M{0FF}0DE  -  S 
ET  DISPLAY  RESOLUTION" 
PRINT" {RVS }R{0FF}ANGE  - 
(SPACE) INPUT  MAPPING  RAN 
GE  MANUALLY" 
PRINT" { RVS )F {OFF }RAME  - 
{SPACE) RANGE  *    SUBSET  OF 

CURRENT  MAP" 
PRINT" (6  SPACES} 'B'-TO  E 
NLARGE: 'S'-TO  REDUCE  FRA 
ME" 

PRINT" i UP )l6  SPACES) 'X'- 
TO  SET  FRAME: 'Q' -TO  EXIT 


BS  68  PRINT" (RVS}M{OFF]ODE  -  S 
ET  DISPLAY  RESOLUTION" 
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XEROX®  PERSONAL  COMPUTER 
FOR  BUSINESS,  HOME,  AND  PROFESSIONAL  USE 


XEROX®... The  Name  You  Can  Trust! 

For  over  20  years  Xerox®  has  been  Ihe  world 
leader  in  office  products  and  copying 
equipment  They  liave  set  standards  that 
others  can  only  imitate.  The  Xerox®  6064 
Personal  Computer  was  designed  to  meet 
the  demands  of  business,  professional,  and 
personal  computing  today,  and  into  the 
future!  We  are  proud  to  offer  this  complete 
Xerox®  System  at  a  remarkably  LOW  price! 
Compare  for  yourself. ..then  buy  your  Xerox® 
6064  from  C.O.M.B.! 

Get  the  Xerox®  Advantage!  The  Xerox® 
PC  offers  you  the  advantage  of  running  IBM™ 
compatible  MS'"-DOS,  so  you  can  run  the 
hundreds  of  business  and  professional  soft- 
ware programs  available  today!  And  the 
Xerox®  PC  is  easy  to  use!  It's  designed  to  get 
you  up  and  running  as  quickly  as  possible 
with  computer-aided  instruction  and  supe- 
rior documentation  covering  all  aspects  of 
personal  computing. 

Xerox^... Service  You  Can  Count  On!  II 
you're  considering  an  IBM'"-compatible, 
don't  be  misled  by  price  alone!  The  system 
we  are  offering  is  a  complete  system. ..ver/ 
easy  to  hook  up  and  use. ..and  very  afford- 
able. But  more  th  an  th  at,  each  syste  m  we  sell 
is  backed  by  Xerox®  service  and  support 
When  you  buy  this  system,  your  name  and 
computer's  serial  number  is  automatically 
registered  with  Xerox®.  Should  you  need 
service  or  advice,  a  network  of  over  150 
service  centers  stands  ready  to  help  you. 
Before  you  buy...  com  pare!  Xerox®  is  your 
best  value!  Check  all  these  features: 

•  IBM'"-PC/XT  Compatibility. 

•  256KB  Memory  Features  an  8MHz  Intel 
8086-2  Microprocessor  for  Faster  Speed, 
Less  Waiting  Time. 

•  Two  5'A"  Floppy  Disk  Drives,  360K  Each. 

•  Seven  Expansion  Slots,  Plus  a  Serial  Port 
for  Communications  or  Printer,  and 
Parallel  Printer  Port 

•  High-Resolution  640  x  400  Pixels 
Monochrome  Monitor,  with  12"  Diagonal 
Non-Glare  Screen,  Swivel  and  Tilt  Base. 

•  Standard  83- Key  PC  Keyboard  with 
Mouse  Interface  (Mouse  Not  Included.) 

•  Comes  with  ScreenMate'",  a  User 
Friendly  Guide  to  the  Functions  of  the 
MS'"-DOS  Operating  System. 
ScreenMate"  is  Menu  Driven. ..No  Need 
to  Remember  Complicated  Commands! 


Lets  You  Select  from  a  Menu  and 
Provides  Clear  On-Line  Instructions  If 
You're  Confused  About  Your  Next  Step. 

Complete  Tutorial  Software  and 
Manuals  Included: 

•  "Getting  Started"  Booklet 


•  Four  Reference  Guides. 

•  Four  Software  Programs:  Two  X-Cel" 
Training  Disks,  Two  Diagnostic  Disks, 
GW™- BASIC  Interpreter,  and  MS'"- 
DOS/ScreenMate'"  Operator's  Guide. 

•  Twenty  Blank  Disks. 


Over  150  Service  Centers  Nationally. 


Manufacturer's  Limited  90>Day  Warranty  on  Part^Labor. 

listPrice  $2224.80 

Priced  At  Only 


I  rans/ i-aDDr. 

»999 


rtem  H-2301-7129-232  Shipping,  handling:  $49.00  ea. 
XEROX®  ScfeenMate"  and  ttie  IdentHyIng  numbers  herein  are  Usdemario  of  Xerox-  Corporation. 
IBM",  IBM''  PC,  arrd  PC^'-DOS  are  trademarks  of  International  Business  Machines  Corporation. 
MS"'-DOS  is  a  trademark  of  Microsoft  Corporation. 


Toil-Free:  1-800-328-0609 


Credit  Card  cuslomer^  can  fxdef 

by  phone,  24  hr?.  a  day,  7  days  a  week. 


SEND  TO:  llem  H-2301 

C.O.M.B.  Direct  Marketing  Corp. 

1405  Xenlum  [jne  N/ Minneapolis,  MN  55441-4494 

Send Xerox*  Personal  Computerfs)  Item  H-2301-7129-232  at  S999 

each,  plus  S49  each  for  ship,  handling.  (Minrjesola  residents  add  6%  sales 
tax.  Sorry,  no  C.O.D.  orders.) 

D  My  check  or  money  order  is  enclosed.  (No  delays  in  processing  orders 
paid  by  check.) 

Charge;  D  VISA®  D  MasterCard*  D  Dlscover^*^  □  American  Express* 
Acct  No F'p        / 


PLEASE  PRINT  CLEARLY 

Name 

Address 

City 

State 


.  ZIP- 


Phone 


Sign  Here- 
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HR  69 

FP  70 
QH  71 

XC  72 

DG  73 


QQ 

74 

QH 

75 

XH 

76 

KR 

77 

GC 

78 

DK  79 


AP 

80 

CS 

81 

JB 

82 

SF 

83 

CP 

84 

RR 

85 

PS 

86 

GB 

87 

BM 

86 

HE  89 


HS  90 


SH  91 


CD  92 


QH  93 


ED 

94 

OE 

95 

DF 

96 

FX 

97 

XM 

9G 

KA 

99 

CD 

100 

DH 

101 

PRINT" {RVsJST{OFF)ATUS  - 
DISPLAY  CURRENT  PARAHET 
ERS" 

print"{rvs3pr[opfJint  - 
(space] printout  map  on  c 
bm  printer" 

PRINT"iRVSjHlOFFJELP  -  D 
ISPLAY  HELP  SCREEN ":RETU 
RN 

SYSS1:IO5="R":GOSUB108:I 
FDSO0THEN  RETURN 
INPUT48,A$ :IFA5<>" .MAP"T 
HENPRINT"lRVSj  NOT  .MAP 
[SPACE) FILE  i0FFj":CL0SE 
aiCL0SE15:RETURN 
INPUT#8,MD,LM,CR, DR,CI, D 
I,CL%(1),CL%(2),CL%(3),C 
L%(4>,BC:I=0 
INPUT#8 , TL% ( I ) : IFTL*  ( I ) < 
>0THENINPUT#8 , TL« ( I+l ) , T 
LI(l+2) :I=I+3;GOT075 
GOSUB93:SYS50269:SYS507  7 
9 :CL0SE8 :CL0SEI5 : RETURN 
SYSSl :I05="W" :GOSUB108: I 
FDSO0THENRETURN 
PRINT#8,  ".^^AP"?R$;MD;R?,• 
LM;  R?  ;  CR ;  RS  ;  DR?  R?  ;  CI  ;  R?  ; 
DI ; R$  ?  CL% ( 1 ) ; R$ ; CL% { 2 ) ; R 

$: 

PRINT#8 , CL% ( 3 ) ; R? ; CL% ( 4 ) 

;R5rBC;R5,-  !l=0 

PRINT#8,TL%(I);R5; 

IFTL% ( I ) <>  0THENPRINT#8 , T 

L%(I  +  l);R5;TL%(I+2) rR?r  : 

1=1+3 :GOTO80 

SYS50725:CLOSE8:CLOSE15: 

RETURN 

PRINT:SYSS1 :SYS50269 : SYS 

50981 :POKE650,128 

GETA$:X=0:FORI=1TO9:IFMI 

D5(CS5,I,1)=A5THENX=I:I= 

9 

NEXTI : IFX=0THENB4 

IFX<8THENPOKE253,X-l:SYS 

51279:GOT084 

IFX>8THEN92 

XL=(PEEK{ 53248)+256*(PEE 

K(53264)AND1)-12)/319 

X=(PEEK(5  32  52)+64*(PEEK( 

53264)AND4)-12)/319:X=X- 

XL:IFX=0THEN84 

Y=( PEEK (53249) -40)/ 199  :Y 

H= (PEEK (53253) -40 )/l99:Y 

=YH-Y : IFY=0THEK84 

CR=CR+XL*DR:DR=X*DR:CI=C 

I+DI-YH*DI : DI=Y*DI : POKES 

3269,0 

FORI =1TO100 : GETA5 : NEXT : P 

OKE53269,0:POKE650,0:RET 

URN 

CC=530  58:FORI=1TO4:POKEC 

C-1+I,CL%(I) :NEXTI:P0KE5 

3053, BC 

IFMD=1THENP0KECC+1 , CLI ( 4 

) :P0KECC+2,CLI(1) 

DX=DR*MD/320 : DY=DI / 200 : I 

FHD=4THENDY=DY*4 

V=CI+DI-DY/2: 1=5 3026 :GOS 

UB138: 1=53036 :V=-DY:GOSU 

B138 

I»=53041  :  V=CR+DX/2  :GOSUBl 

38 

V=DX:I=53031 :G0SUB13a:P0 

KE53047,MD 

1=0 : POKE53046 , 1 : IF ( ABS ( D 

X ) +ABS ( DY) ) <  2 . E-4THENP0K 

E53O46,0 

POKERT+I , TL% ( I ) : IFTL% ( I 

)=0THEN103 

X=TLl(l+l) :GOSUB104:POK 

ERT+I+1,X 


BC  102  X=TL%(l+2) :GOSUB104:POK 

ERT+ 1+2 , X : 1=1+3 :GOTOI0a 
XQ  103  X=IKT(LH/256) :POKE53020 

, X :POKE530I9 , LM-2  56*X : R 

ETURN 
JS  104  IFLM<256THENRETURN 
JR  105  IFX<128THENRETURN 
QS  106  IFX<256THENX=128+(X-128 

)/2 
RH  107  X=192+(X-256)/8:RETURN 
as  108  DS=1:NM?="" : INPUT" :FILE 

NAME " ; SM5 ! IFNM5=" "THENR 

ETURN 
GM  109  OPEN15,a,15:OPEN8,8,8,N 

MS+" , SEQ, "+IO$ : INPUT#15 

, E, ES I IFE=0THENDS=0 : RET 

URN 
SP  110  PRINTEH$;E,E$:CL0SE8:CL 

OSE15:IFE<>63THENRETURN 
GJ  111  PRINT"SAVE  WITH  REPLACE 

7(Y  OR  N)  "; :GOSUB152 
CE  112  PRINT: IFC$<> "Y"THENRETU 

RN 
FP  113  NM$="@0i"+NM$:GOTO109 
HX  114  IFPEEK( 53064) <>0TnENPOK 

E53064,0: SYSSl; PRINT" 

{RVS}  BREAK {2  SPACES )- 

{SPACE] INTERRUPT  OF  RUN 
[OFF}" 
MD  115  PRINT:PRINT"<"; :G0SUB15 

2;PRIKT">":X=0 
MK  116  FORIB0TO7:IFLEFT$(C5,1) 

=LEFT5 (CL? ( I ) , 1 )THENX=I 

+1 !l=7 

JQ    117    NEXTIiIFXOBTHENPRINT" 
[up] { RIGHT }"CL$(X-1) ; Z$ 

XC    118    IFX<>0THENQNXGOSUBe3,72 

,51,37,34,163,125,32:00 

T0114 
XF  119  FORI=8T014tIFLEFT$(C9,2 

)=LEFT? ( CL? ( I ) , 2 ) THENX= 

1-7:1=14 
SE  120  NEXTI:  IFXOOTHENPRINT" 

{up} { RIGHT ]"CL9(X+7) ;Z? 

EX  121  IFX<>0THENONXGOSUB47,13 

,21,42,77,12,24:GOT0114 
AX  122  F0RI=15TO16:IFLEFT5(CL? 

( I) , 3 ) «LEFT  5 ( C  $ , 3 ) THENX 

=1-14:1=16 
PJ    123    NEXTI :IFX<>0THEKPRINT" 

{up} {right} "CLS(X+14) ;Z 

S; ;ONXGOSUB140, 131:GOTO 

114 
CE    124    PRINTR$"{RVS}UNKNOVffl?    CO 

HMAND    -    FOR    HELP    ENTER 

{ SPACE] "Q?"HELP"QS:G0T0 

114 
BH  125  SYSSl ;PR1NTR?" [DOWN] 

(2  SPACES] [RVS] 

[2  SPACES} SPECIFY  REGIO 

N  0F  COMPLEX  PLANE 

{ OFF ) ( DOWN ) " 
XR  126  INPUT" REAL  INITIAL  VALU 

E,  RANGE", ■CR,DR 
EB  127  IFABS(CR)>3.99990RABS(D 

R)>3.9999THENPRINTE2?:G 

OT0126 
XR  128  INPUT"IMAGINARY  INIT  VA 

LUE,  RANGE"; CI, DI 
HD  129  IPABS(CI)>3.99990RABS(D 

I ) >  3 . 9999THENPRINTE2? : G 

0T012S 
J A  130  G0T093 
KF  131  SYSSl : PRINT": INTERVALS 

[SPACE] FOR  CONTOURS" 
MF  132  PRINTSPC(5) ;"(RVS}  RESE 

T  ALL  PLOTTING  INTERVAL 

S  {OFF}": 1=0 
BR  133  PRINT"INPUT  COLOR  (1-4) 
,  LOWER  AND  UPPER  PLOT 


QB 

139 

MM 

140 

BH 

141 

JR 

142 

JC 

145 

CK 

146 

JP 

147 

FH 

148 

[SPACE) RANGES  (0-255)" 
XG  134  CL=-1 :INPUT"COLOR,LL,UL 

";CL,LL,UL:IFCL=-1THENT 

L% ( I )=0: RETURN 
AB  135  IFCL<1ORCL>4ORLL<0ORUL> 

LM0RLL>ULTHENPRINTE2?:G 

OT0134 
RR  136  TL%(l)t=CL:TL%(I  +  l)-LL:T 

L% ( 1+2 )=UL: 1=1+3 :G0T013 

4 

CX  137  RETURN 

JD  138  X=64*ABS(V) :FORK=0TO3;P 
OKEI+K,X:X=256*(X-INT(X 
) ) :NEXTK:X=0:IFV<0THENX 
=255 

POKEI+4 , X : 1=1+5 : RETURN 
SYSSl : PRINT : F0RI=lTO8 : P 
RINTI-1;HID$(CL5,I,1);M 
15"  "j 

PRINTMID?(CLS,I+8,1);H1 
$;I+7:NEXTI 

PRINT" [DOWN] NAME  FOUR  C 
OLORS:  EX.:  0,5, 6, 7": IN 
PUT  CL%(1),CL%(2),CL%(3 
),CL%(4) 
PE  143  FORI=1TO4:IFCL%{I)<0ORC 
L% ( I ) >15THENPRINTE25 :G0 
T0142 
CE  144  NEXTI sINPUT"BORDER  COLO 
R " ; BC : I FBC  <  0ORBC  > 1 5THEN 
144 

GOT093 

OPEN8,8,0, "$0":GET#8,A5 
,A9,A?,A$:A$=CHR5(0) :B? 
=CHR5(0) :F=-l:GOT0148 
F=-l : GET  #8 , BS , B$ , A? , 85 : 
IFB5=" "THENB5=CHR$ ( 0 ) 
PRINT(ASC(A5)+256*ASC{B 
$)  )  ,-CHR5(13)  ;"{UP} 
[6  RIGHT}"; 
HQ  149  FORI=lT028:GET#8,A5:IFA 
5=CHR$ ( 34 ) 0RF=1THENPRIN 

TA5; :F=1 

NEXTI : I FST=0THENP  RI NT : G 

OT0147 

PRINT"***BLOCKS  FREE*** 
" : CLOSES: RETURN 

C$-"" 

1=0 : PRINT" i RVS 1  (OFF) 

{ LEFT } " ; 
HR  154  GETA5!l»I+l:IFA5<>""THE 

NIFA5=D50RA5=R50R(ASC ( A 

5 ) >  31ANDASC ( A$ ) <  94 ) THEN 

GOTO 159 

IFA5=CHR5 ( 133 )THENA5=R5 

:C5="TO":GOT0159 

IFA5=CHR$ ( 134 )THENA5=R5 
:C5="DI":G0T0159 

IFI=70RI=14THENPRINT" 

[LEFT]"; !IFI=14THEN153 

G0TO154 

PRINT"  (left)"; :IFA5<>D 

$ANDA?<>R5THENPRINTA$; : 

C5=C$+A$:GOT0153 
GA  160  IFA5=D5THENX=LEN(C5) :IF 

X<>0THENPRINTD$; :C$=LEF 

T5(C5,X-1) 
JX  161  IFA$=D5THEN15  3 
BA  162  RETURN 
CF  163  SYSSl: STOP 

Program  2:  HS.MAC 

Please  refer  to  the  "MLX"  article  In  this  issue 
before  entering  the  following  program. 

C000:A2  0C  A9  00  95  25  CA  D0  B2 

C008:FB  A0  32  A9  28  AA  20  50  lA 

C0101C1  A0  3C  A9  2D  A2  28  20  21 

C018i2D  CI  A0  37  A9  2D  AA  20  9F 

C020;5D  CI  A2  32  A0  37  20  CF  2A 

C028:C2  B0  52  E6  26  D0  02  E6  4F 


JM 
BF 

DX 

DH 


150 

151 

152 
153 


KK 

155 

JE 

156 

XR 

157 

JB 

158 

QF 

159 

66     COMPUTEI     April  1987 


C030:27  A3  26 

05  41 

D0 

OB 

A5 

D8 

C2O0:F0 

BF 

85 

04 

85 

A9 

59 

04 

2F 

0550:80 

E6 

B9  77 

C3 

80 

3A 

CF  35 

C:03a:27  C5  42 

D0  05 

A9 

00 

85 

68 

C2C8:00 

00 

00 

F0 

29 

A2 

A5 

B5 

08 

0558:60 

20 

50  04 

20 

E2 

04 

20  4A 

C040:26  60  20 

02  02 

A0 

43 

20 

50 

0200:04 

85 

A9 

59 

04 

00 

D0 

IE 

64 

C560:FD 

04 

20  SB 

02 

A9 

40 

85  9a 

C048:CD  C2  B0 

31  A2 

28 

20 

38 

B8 

0208:18 

B5 

03 

79 

03 

00 

85 

A8 

93 

C568:34 

85 

36  85 

38 

80 

84 

02  91 

C050:C3  06  2B 

26  2A 

26 

29 

26 

5F 

C2E0:B5 

02 

79 

02 

00 

85 

A7 

B5 

20 

0570:60 

A9 

FF  30 

06 

A9 

01 

00  43 

C058:2a  B0  22 

06  3F 

26 

3E 

26 

F3 

O2E8:01 

79 

01 

m 

85 

A6 

B5 

00 

9F 

C578:02 

A9 

00  80 

46 

CF 

20 

40  47 

C060:3D  26  3C 

B0  18 

A2 

3C 

A0 

01 

C2F0:79 

00 

00 

85 

A5 

60 

38 

BS 

60 

C580:C3 

20 

50  C4 

20 

E2 

C4 

A9  AD 

C068:48  20  CF 

C2  B0 

0F 

A2 

20 

70 

C2F8:03 

F9 

03 

00 

85 

A8 

BS 

02 

IB 

C588iO0 

85 

FD  AD 

37 

OF 

C9 

04  A0 

C070:20  38  C3 

06  30 

26 

2F 

26 

87 

0300 :F9 

02 

00 

85 

A7 

B5 

01 

F9 

60 

C590:F0 

02 

A9  01 

8D 

47 

CF 

AD  31 

C078:2E  26  2D 

90  80 

A5 

42 

F0 

B9 

0308:01 

00 

85 

A6 

B5 

00 

F9 

00 

CC 

0598:46 

CF 

09  01 

D0 

09 

20 

85  F4 

C080:1A  A5  27 

F0  0B 

4A 

4A 

A5 

28 

C310;00 

85 

A5 

90 

02 

18 

60 

A9 

91 

C5A0:C6 

40 

BB  C5 

40 

CF 

FF 

09  80 

C088:26  6A  4A 

4A  09 

00 

D0 

09 

9B 

0318:00 

38 

E5 

A8 

85 

A8 

A9 

m 

17 

C5A8:FF 

D0 

05  A2 

08 

20 

06 

FF  81 

C090:A5  26  10 

07  4A 

29 

BF 

09 

60 

C320:E5 

A7 

85 

A7 

A9 

00 

E5 

A6 

6F 

O5B0:A2 

05 

BD  30 

CF 

95 

42 

CA  AD 

C098:80  85  26 

60  A2 

31 

BO 

FF 

D9 

0328:85 

A6 

A9 

00 

E5 

A5 

85 

AS 

07 

C5B8:D0 

Fa 

A9  00 

85 

FB 

85 

FO  44 

C0A0:CE  B5  2S 

9D  FF 

CE 

94 

25 

FE 

C33a:A9 

FF 

45 

A9 

85 

A9 

18 

60 

33 

C5C0:AD 

46 

CF  09 

FF 

00 

11 

20  D0 

C0A8:CA  D0  F3 

60  BD 

00 

70 

7D 

94 

C338:A5 

A5 

95 

00 

A5 

A6 

95 

01 

A2 

C5C8:CF 

FF 

20  A4 

05 

85 

26 

20  3B 

C0B0:00  50  79 

00  40 

90 

03 

E6 

A6 

0340 :A5 

A7 

95 

02 

AS 

AB 

95 

03 

55 

C5D0:B7 

FF 

29  00 

DO 

3B 

F0 

0F  CD 

C0B8:A6  18  85 

A7  68 

AA 

B9 

aa 

20 

C348:A5 

A9 

93 

04 

60 

A9 

FS 

25 

CO 

C5D8:20 

00 

00  AO 

46 

CF 

09 

01  6D 

C0C0:50  79  00 

-0  79 

00 

60 

90 

EC 

C350;01 

85 

01 

20 

90 

00 

60 

20 

A4 

C5E0:D0 

05 

A5  26 

20 

CF 

06 

20  IB 

C0C8:03  E6  A6 

18  65 

A7 

85 

A7 

58 

C358;9C 

C0 

A9 

01 

05 

01 

85 

01 

DB 

C5E8:04 

04 

20  61 

C3 

A5 

05 

09  CB 

C0D0:90  03  E6 

A6  18 

BD 

00 

50 

AA 

C360:60 

A2 

43 

A0 

40 

20 

CF 

02 

80 

C5F0:06 

D0 

05  80 

48 

CF 

F0 

19  A9 

C0De:7D  00  70 

7D  00 

40 

90 

03 

24 

0368:20 

38 

03 

60 

A2 

48 

A0 

52 

56 

C5Fa:A5 

FB 

09  40 

00 

02 

A5 

FC  60 

C0E0:E6  A6  18 

7D  00 

60 

90 

03 

FF 

0370:20 

CF 

C2 

20 

38 

03 

60 

00 

E7 

C6fln:F0 

BE 

20    6C 

03 

A5 

FD 

18  49 

C0E8:E6  A6  18 

65  A7 

90 

03 

E6 

40 

0378:55 

AA 

FF 

80 

40 

20 

10 

08 

08 

C608:6D 

47 

CF  85 

FD 

C9 

08 

90  A9 

C0P0:A6  18  85 

39  B9 

00 

51 

79 

F9 

0380:04 

02 

01 

7F 

BF 

DF 

EF 

F7 

F7 

0610:11 

AD 

46  OF 

09 

01 

D0 

03  4E 

C0F8:00  71  79 

00  41 

90 

03 

E6 

3F 

C388:FB 

FD 

FE 

A9 

00 

80 

39 

CF 

30 

0618:20 

DD 

06  20 

CC 

FF 

20 

57  06 

C100:A5  18  65 

A6  85 

A6 

90 

03 

5E 

C390:A5 

FD 

29 

F8 

48 

0A 

2E 

39 

IF 

0620:03 

60 

4C  B0 

05 

A9 

FE 

25  34 

C108:E6  A5  18 

BD  00 

51 

7D 

00 

87 

C398:0F 

0A 

2E 

39 

CF 

0A 

2E 

39 

20 

C628:01 

85 

01  A2 

08 

20 

09 

FF  36 

C110;77  79  00 

67  90 

03 

E6 

A5 

28 

C3A0:OF 

BD 

38 

CF 

68 

4A 

4A 

4A 

02 

O630:A9 

AO 

8D  39 

06 

A2 

00 

BD  7E 

C118:18  65  A6 

90  03 

E6 

A5 

18 

F5 

C3A8:6D 

39 

CF 

80 

39 

CF 

A5 

FB 

58 

0638:00 

A0 

20  D2 

FF 

20 

B7 

FF  0F 

C120:85  38  89 

00  51 

79 

00 

77 

93 

C3E0:29 

Fa 

18 

60 

38 

CF 

8D 

38 

39 

0640:29 

00 

00  00 

E8 

DO 

FO 

EE  DB 

C128t65  A5  85 

37  60 

80 

2B 

CI 

39 

03B8:OF 

A5 

FO 

6D 

39 

CF 

69 

A0 

84 

C648:39 

06 

A9  00 

CD 

39 

06 

00  17 

C130:C8  SC  21 

Ci  08 

ac 

F3 

00 

90 

C3C0:aD 

39 

CF 

A5 

FD 

29 

07 

13 

60 

C650:E6 

20 

00  FF 

A9 

01 

05 

01  4F 

C138:8C  52  CI 

C8  80 

54 

01 

08 

5D 

C3C8:6D 

38 

CF 

BD 

38 

CF 

90 

03 

0D 

C658:85 

01 

60  A2 

08 

20 

C6 

FF  60 

C140:8C  4A  CI 

A8  B9 

04 

00 

55 

92 

C3D0:EE 

39 

OF 

60 

20 

8B 

03 

AD 

82 

0660:20 

E2 

04  A9 

A0 

8D 

6F 

C6  CA 

C148:04  85  40 

A9  00 

85 

AS 

85 

B8 

C3D8i38 

CF 

8D 

FB 

03 

8D 

01 

04 

FC 

0668 :A0 

00 

20  CF 

FF 

99 

00 

A0  4E 

C150!A6  85  3E 

85  3F 

AD 

36 

CF 

95 

C3E0;AD 

39 

OF 

8D 

FC 

03 

8D 

02 

74 

0670:20 

B7 

FF  29 

00 

D0 

0A 

08  B4 

C158:D0  68  4C 

35  C2 

8C 

2B 

01 

9B 

C3E8:C4 

A5 

FB 

29 

07 

AA 

BD 

7B 

28 

C678:D0 

F0 

EE  6F 

C6 

A9 

00 

D0  AE 

C160:C8  8C  21 

CI  C8 

80 

F3 

00 

CO 

C3F0:C3 

2D 

3A 

CF 

8D 

3B 

CF 

BD 

A0 

O680:E9 

20 

CC  FF 

60 

A9 

E0 

BD  9D 

C168:8C  82  CI 

08  80 

84 

01 

C8 

5A 

C3F8:83 

03 

20 

00 

FF 

00 

3B 

CF 

53 

C688:01 

06 

A9  00 

8D 

00 

06 

60  83 

C170:8C  7A  CI 

A8  B9 

04 

00 

55 

CE 

C400;BD 

00 

FF 

60 

AD 

37 

CF 

09 

OA 

0690 :A9 

m 

8D  AE 

C6 

8D 

Bl 

06  5E 

C178:04  85  3B 

A9  00 

85 

A5 

85 

48 

0408:02 

F0 

13 

09 

01 

FO 

02 

00 

6E 

C698:A9 

60 

80  AB 

C6 

80 

B5 

06  IE 

C180:A6  85  39 

85  3A 

AD 

36 

OF 

FC 

C410:1F 

20 

34 

C5 

20 

04 

03 

E6 

06 

O6A0:78 

A9 

FO  25 

01 

85 

01 

A2  A9 

C188:F0  43  B5 

01  29 

0F 

09 

50 

04 

C418:FB 

DO 

02 

E6 

FC 

60 

20 

34 

60 

C6A8:00 

BD 

00  60 

BO 

00 

E0 

9D  FO 

C190:8D  F6  C0 

B5  01 

4A 

4A 

4A 

10 

0420:05 

20 

D4 

C3 

E6 

FB 

20 

D4 

A7 

C6B0:00 

E0 

98  90 

00 

60 

E3 

D0  37 

C198:4A  09  70 

8D  F9 

00 

B5 

00 

A8 

C428:C3 

E6 

FB 

D0 

02 

E6 

FC 

60 

DF 

0668: FO 

EE 

AB  06 

EE 

AE 

06 

EE  0B 

C1A0:29  0F  09 

40  8D 

FO 

00 

09 

8C 

C430:A9 

04 

SD 

40 

CF 

8D 

41 

CF 

40 

0600 :BS 

C6 

EE  Bl 

06 

00 

E2 

A9  BC 

CiA8:50  8D  0D 

CI  8D 

24 

01 

B5 

AB 

0438:20 

34 

03 

20 

D4 

03 

E6 

FD 

IB 
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05 

01  85 

01 

58 
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09 

60 

80 
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41 

CF 

00 
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A9 

04 

BD 
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C6 

D0 

05 
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10 
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8D 

10 
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CF 

AS 

FO 
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E9 

04 

85 
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43 
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A9 
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0D 
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0D 

AO  00 

60 

20 
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8D 
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AD 

02 

DD 

09 
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00 
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01 

29 

OF 

96 

C480:D0 

29 

07 

09 
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8D 

18 

D0 

27 

0710:01 

06 
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80 

CD 

F4 
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09 

50 

8D 
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AD 
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A2 

08 

A9  C0 
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21 

00 

AD 

20 

D0 

80 

BB 
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OA 

00 

FA 
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80 
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20 

00 
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85 
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FD 

85 

FE 
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CI 

B5 

00 
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86 

02 

80 

3F 

CF 

AD 

45 

9D 

0738:49 

CF 

8D  4A 

CF 

A2 

3F 

A9  E7 

C220:29  0F  09 

40  80 

DD 

C0 

80 

16 

C4B0:CF 

80 

86 

02 

AD 

43 

CF 

0A 

9A 

C740:00 

90 

FO  7F 

90 

FF 

7F 

A9  34 
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50  80 

Bl 

C0 

8D 

04 
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0A 

0A 

00 

44 

CF 

A2 

aa 

82 
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90 

FE  7F 

CA 

CA 

OA 

00  0  3 

C230:0D  CI  8D 

24  01 

B9 

01 

00 

97 

C4C0:9D 

00 

80 

9D 

00 

8D 

9D 

oa 

F5 

C750:EE 

A2 

03  A9 

FF 

9D 

ID 

80  2C 
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00  AA 

B9 

00 

00 

CO 
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9D 

F7 

8E 

E8 

00 

Fl 

AD 

05 
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00 

FA  A9 

OF 

8D 

15 

D0  2  5 
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A5 

FB 

9D 

A6 

C4D0:45 

CF 

9D 

00 

D8 

90 

00 

D9 

BB 
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C7E0 
C7Ea 
C7F0 
C7F8 
C800 

ca08 

C818 

ca20 

C828 
C830 
C838 
C840 
C848 
C850 
C858 
C860 
C868 
C870 
C873 
C880 
C888 
C890 
C898 
C8A0 
CSAS 
C8B0 
CSBS 
C8C0 
C8C8 
C8D0 
C8DB 
C8E0 
C8E8 
C8F0 

capa 

C900 

C908 

C910 

C918 

C920 

C928 

C930 

C938 

C940 

C948 

C950 

C958: 

C960: 

C968: 

C970I 

C978: 

C980: 

C988: 

C990  : 

C998: 

C9A0: 

C9A8: 

C9B0: 

C9B8; 

C9C0: 

C9Ca: 

C9D0: 

C9D8: 

C9E0: 

C9E8: 

C9F0: 

C9Fa: 

CA00: 

CA08: 

CA10: 

CA18: 

CA20: 

CA28: 


:F5  60 
:  10  D0 
:4C  90 
:CF  C9 
:FF  CF 
:C9  28 
!A0  08 
;20  CE 
;00  38 
:38  E5 
:A9  00 
:01  85 
;FB  D0 
:C5  A9 
:FD  C9 
:E4  C9 
:EB  C9 
:50  4C 
:AD  49 
:04  20 
100  85 
:A2  08 
:9F  C7 
:FC  8D 
rA2  01 
:6D  D3 
:4A  CF 
:19  A2 
:38  ED 
:8E  4A 
:D0  CE 
180  A5 
:aB  C3 
:C3  BD 
:FE  85 
:FD  A9 
:20  C9 
:A9  00 
:D4  C8 
:FF  E8 
:CF  A5 
:20  D9 
:C9  AD 
:00  FF 
i37  CF 
:21  AD 
:CF  4A 
:8D  41 
:0A  0D 
:3e  CF 
:A5  FE 
:A5  FD 
:01  4D 
:8A  C9 
:D8  C8 
iCF  AD 
!09  A9 
i49  CF 
i6E  49 
:20  D2 
;A9  01 
;A9  08 
;02  E6 
29  A9 
00  20 
CF  8D 
65  FE 
FD  85 
08  C9 
4A  CF 
F0  03 
A9  0F 
AS  01 
00  4C 


A5  FD 
F0  0A 
0C  E6 
0C  B0 
C9  F0 
B0  E9 
20  9F 
C7  A5 
E5  FB 
FC  85 
85  FB 
FB  D0 
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FF  85 
01  F0 

0  3  F0 
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Are  you  rumnng  out  of  room  on  your 
IBM  PC/PCjr  disks?  Are  your  disk 
directories  cluttered  with  a  multitude 
of  small  COM  programs?  This  utility 
conserves  disk  space  and  simplifies 
the  directory  structure  of  a  disk  by 
packing  several  COM  programs  into  a 
single  file,  it  also  works  with  PC 
compatibles. 


Most  IBM  PC/PCjr  owners  have  a 
collection  of  favorite  COM  pro- 
grams that  perform  various  tasks. 
"Disk  COMpacker"  takes  several 
small  COM  programs  and  packs 
them  into  a  single  disk  file.  By  pack- 
ing several  programs  together,  you 
can  save  disk  space  and  reduce  the 
number  of  directory  entries  on  the 
disk. 

Type  in  and  save  the  program 
before  you  run  it.  The  BASIC  pro- 
gram begins  by  READing  all  the 
DATA  lines  and  checking  them 
against  checksums  to  confirm  that 
they  have  been  typed  correctly,  If 
no  errors  appear,  the  program  cre- 
ates the  file  COMPACKR.COM  on 
the  disk;  this  is  the  machine  lan- 
guage program  that  you'll  use  to 
pack  other  files. 

Packing  COM  Files 

Before  you  use  COMPACKR.COM, 
you  must  collect  on  one  disk  the 


files  which  you  wish  to  compact. 
The  COM  files  can  be  any  collec- 
tion of  programs  that  run  indepen- 
dently. (You  should  not  attempt  to 
pack  a  program  that  is  called  from 
within  another  application,  since 
that  application  will  have  no  way  to 
know  that  the  program  has  been 
packed.)  Make  sure  that  COM- 
PACKR.COM  is  present  on  the  disk 
and  that  the  disk  is  in  the  current 
default  drive,  as  well.  You  invoke 
COMPACKR.COM  by  typing  its 
name  from  the  DOS  prompt.  You 
do  not  need  to  type  the  .COM  ex- 
tension after  COMPACKR.  Here's 
the  general  syntax  to  use: 

compackr  output  inputl  input!  ... 

The  command  COMPACKR  is 
followed  by  three  or  more  file- 
names separated  by  spaces.  The 
first  name  {output,  in  the  example 
command)  is  the  name  of  the  file 
you  wish  to  create;  this  file  will 
contain  all  the  COM  files  in  packed 
form.  The  remaining  names  indi- 
cate which  COM  files  you  wish  to 
pack  into  the  output  file. 

For  instance,  say  that  you  want 
to  pack  three  COM  files  named  DE- 
M01.COM,  DEM02.COM,  and 
DEM03.COM  into  a  single  file 
called  BIG0NE.COM.  Here  is  the 
command  to  use: 

compackr  bigone  demol  denio2  deino3 
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Notice  that  it  is  not  necessary 
to  type  the  .COM  extension  for  any 
of  the  filenames.  COMPACKR- 
.COM  supplies  the  extensions  auto- 
matically. Do  not  use  any  drive 
specifiers,  pathnames,  or  exten- 
sions in  the  command.  COM- 
PACKR.COM  assumes  that  all  the 
input  files  are  in  the  current  directo- 
ry of  the  default  drive  and  it  places 
the  output  file  there,  too.  You  can- 
not use  the  same  name  for  an  input 
file  and  the  output  file;  for  instance, 
if  one  of  the  input  files  is  DISKFS, 
you  can't  name  the  output  file 
DISKFS. 

Be  sure  to  keep  a  copy  of  each 
original  file  that  is  packed.  COM- 
PACKR.COM  makes  no  provision 
for  unpacking  the  components  of  a 
packed  file,  and  you  may  want  to 
use  the  COM  files  separately  or 
pack  them  with  other  COM  files  in 
the  future. 

Leader  Of  The  Pack 

Once  you  have  created  the  packed 
file,  you  can  access  any  of  the  COM 
programs  which  it  contains.  Here  is 
the  syntax  to  use: 

mainfile  comfile  parameters) 

In  this  example,  mainfile  repre- 
sents the  output  filename  you  used 
when  creating  the  large  packed  file. 
The  parameter  comfile  represents 
the  name  which  the  desired  indi- 
vidual packed  COM  file  had  before 
you  packed  it.  If  the  COM  file  takes 
additional  parameters,  those 
should  be  typed  after  the  filename. 

For  instance,  say  that  you  have 
created  the  file  BIGONE  containing 
the  COM  files  DEM01.COM,  DE- 
M02.COM,  and  DEM03.COM, 
and  that  DEM02.COM  requires 
you  to  supply  one  parameter — the 
password  secret.  Here's  how  to  in- 
voke DEM02.COM  after  packing: 

bigone  detno2  secret 

If  you  invoke  the  main  file 
without  supplying  any  parameters, 
an  appropriate  error  message  is  dis- 
played (the  program  returns  error- 
level  255).  The  program  also 
displays  the  names  of  all  the 
packed  COM  files  as  a  reminder. 

Why  Pack? 

You  may  wonder  why  packing  sev- 
eral COM  files  into  one  file  saves 
disk  space.  The  answer  has  to  do 


with  the  way  that  PC-DOS  (or  MS- 
DOS,  if  you  are  using  an  IBM  PC 
compatible)  allocates  disk  space. 
When  you  create  a  file,  DOS  allo- 
cates space  in  the  form  of  uniform 
clusters  rather  than  using  only  as 
many  bytes  as  the  file  requires.  The 
size  of  a  cluster  depends  on  what 
sort  of  drive  you're  using.  A  cluster 
normally  contains  512  bytes  (one 
sector)  on  a  single-sided  floppy 
disk,  1024  bytes  (two  sectors)  on  a 
double-sided  floppy,  or  4096  bytes 
(eight  sectors)  on  a  10 -megabyte 
hard  disk. 

Since  few  programs  are  an  ex- 
act multiple  of  the  cluster  size,  most 
disks  contain  a  considerable 
amount  of  wasted  space.  The 
amount  of  waste  varies,  based  on 
how  much  of  the  last  cluster  each 
program  uses  and  the  type  of  drive. 
For  example,  a  4500-byte  program 
on  a  double-sided  floppy  disk  uses 
five  clusters,  or  5120  bytes,  wasting 
the  last  620  bytes  of  the  final  clus- 
ter. On  a  10-megabyte  hard  disk, 
the  same  4500-byte  file  uses  two 
clusters,  or  8192  bytes,  wasting 
3692  bytes  of  disk  space. 

The  theoretical  average  num- 
ber of  bytes  you  can  save  per 
packed  program  is  half  the  cluster 
size  for  the  type  of  disk  in  use.  This 
does  not  apply  to  a  program  whose 
file  size  is  an  exact  multiple  of  the 
cluster  size,  of  course. 

The  packed  file  includes  code 
to  find  and  run  the  program  you 
choose,  and  to  display  appropriate 
error  messages.  This  overhead 
amounts  to  about  512  bytes,  plus  an 
extra  10  bytes  for  every  program 
packed  in  the  main  file.  Note  that 
the  packed  file  must  not  exceed  62K 
in  length.  Since  the  DOS  command 
line  is  limited  to  127  characters,  you 
can  usually  pack  only  about  12  files 
into  a  single  main  file.  If  the  file- 
names of  the  original  input  files  are 
short,  you  may  be  able  to  pack 
more  than  12,  providing  that  you 
don't  exceed  the  62K  maximum 
length  for  the  main  file. 

Disk  COMpacker  For  IBM 
PC/PCjr 

For  instructions  on  entering  this  program, 
please  refer  to  "COIvlPUTEI's  Guide  to  Typing 
in  Programs"  eisewtiere  in  this  issue. 

PJ  130  CLSiDEFINT  I:  FDR  1=0  TO  5 
:READ  MSG«(IJ:NEXT 

BK  131  READ  PBH«,  I IMAX,  I2MAX,  BRT 
DTCK, ILOF 


BJ  140  IPASS-IPASS+1:  PRINT  MSG*  ( 

IPASS):IF  IPASS=0  OR  I PAS 

S=3  THEN  END 
SI  150  PRINT:  IF  IPflSS=2  THEN  OPE 

N  PBM*  AS  #1  LEN=1: FIELD 

#1,1  AB  BYTE* 
BH  160  RESTORE  501 :  6RTOT=0:  FDR  I 

1-1  TD  I1MAX:F0R  12=1  TO 

I2MAX 
KD  170  READ  IBYTE:  ITOT=ITDT+IBYT 

E 
PF  180  IF  IPABS=2  AND  ICLOF<ILOF 
THEN  LSET  BYTE»=CHR* (IBY 

TE):PUT  #ls ICLOF=ICLaF+l 
JL  190  NEXT  I2:READ  ICHECK:  IF  IC 

HECK=ITOT  GOTO  210 
JL  200  PRINT  MSG*  (4>;  500+11:  IRAS 

S=-l 
611  210  GRTDT=ERTOT+ITDT:ITDT=0:N 

EXT  Ii:PRINT 
BN  220  IF  IPASS>0  AND  BRTOTCK=BR 

TOT  GOTO  140 
AH  230  IF  IPflSSO-1  THEN  PRINT  M 

aQ»(5):END  ELSE  BOTO  140 
Hfl  300  DATA  Correct  Errors., Chec 

king  DATA  Lines. , Creating 
Prog  r  art). 
HE  310  DATA  Program  Created., Err 

orJs)  Dn  Line  -, Check  Lin 

e  500. 
ED  500  DATA  "CDMPACKR.  COM"  ,  133,  1 

0,126794, 1327 
PF  501  DATA  233,143,3,233,4,1,13 

,9,13,10,  662 
n   502  DATA  67,79,77,80,65,67,75 

,82,32,45,  669 
FF  503  DATA  32,32,80,97,99,107,1 

15,32,83,109,  7B6 
HJ  504  DATA  97,108,108,32,67,79, 

77,32,80,114,  794 
51*505  DATA  111,103,114,97,109,1 

15,32,73,110,116,  980 
CP  506  DATA  111,32,79,110,101,46 
,13,10,0,0,  502 

ei  507  DATA  0,0,0,0,0,0,0,0,0,0, 

0 
I;L  508  DATA  0,0,0,0,0,0,0,0,0,0, 

0 
KO  509  DATA  0,0,0,0,0,0,0,0,0,0, 

0 
IF  510  DATA  0,0,0,0,0,0,0,0,0,0, 

0 
n   511  DATA  0,0,0,0,0,0,0,0,0,0, 

0 
JL  512  DATA  0,0,0,0,0,0,0,0,0,0, 

0 
JO  513  DATA  0,0,0,0,0,0,0,0,0,0, 

0 
JB  514  DATA  0,0,0,0,0,0,0,0,0,0, 

0 
00  515  DATA  26,73,110,118,97,108 

,105,100,47,77,  861 
LE  516  DATA  105,115,115,105,110, 

103,32,79,112,116,   992 
OE  517  DATA  105,111,110,46,46,46 

,86,97,108,105,  860 
60  518  DATA  100,32,79,112,116,10 

5,111,110,115,32,  912 
CA  519  DATA  65,114,101,58,13,10, 

9,44,32,47,  493 
DC  520  DATA  0,0,0,80,87,51,192,1 

72,60,13,  655 
EH  521  DATA  116,33,191,186,1,185 

,4,0,242,174,  1132 
KB  522  DATA  116,241,139,214,74,2 

54,196,172,60,13,  1479 
KK  523  DATA  116,13,191,186,1,185 

,4,0,242,174,  1112 
Fe  524  DATA  117,239,248,235,1,24 

9,51,201,138,204,  1683 
NE  525  DATA  95,88,195,60,97,114, 

6,60,122,119,  956 
Fl  526  DATA  2,36,223,195,80,83,1 
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B7, 2, 0,180,  988 
ICN  527  DATA  64,205,33,91,85,195, 

252,136,38,190,  1292 
LS  528  DATA  1,83,81,82,87,86,128 

,62,128,0,  738 
CF  529  DATA  0,119,59,186,8,1,185 

,178,0,198,  934 
DK  530  DATA  6,140,1,10,232,213,2 

55,185,10,0,  1052 
0*531  DATA  190,237,2,139,92,8,1 

41,120,10,184,  1123 
BO  S32  DATA  32,32,57,5,117,3,184 

,13,10,139,  592 
10  533  DATA  214,135,68,8,232,183 

,255,135,68,8,  1306 
f J  534  DATA  139,247,61,32,32,116 

,222,184,255,76,  1364 
£S  535  DATA  205,33,190,129,0,232 

,101,255,227,189,  1561 
CH  536  DATA  78,131,249,8,119,103 

,191,129,0,160,  1248 
KI)  537  DATA  128,0,152,3,199,43,1 

98,162,128,0,  1013 
PJ  538  DATA  139,200,65,243,164,1 

57,237,2,129,63,  1429 
PH  539  DATA  32,32,116,155,191,93 

,0,139,243,185,  1186 
PN  540  DATA  0,0,243,166,116,8,13 

9,119,8,141,  948 
00  541  DATA  88,10,235,230,83,138 

,30,190,1,50,  1055 
V   542  DATA  255,190,108,0,191,92 

,0,185,16,0,  1037 
H<  543  DATA  243,164,191,108,0,17 

6,0,170,176,32,  1260 
LK  544  DATA  185,11,0,243,170,51, 

192,171,171,128,  1322 
m   545  DATA  62,128,0,0,116,27,19 

0,129,0,232,  884 
LE  546  DATA  253,254,114,19,232,2 

48,254,139,242,191,  1946 
6F  547  DATA  108,0,184,14,41,205, 

33,60,255,117,  1017 
L6  548  DATA  2,183,255,139,195,91 

,139,79,8,141,  1232 
«L  549  DATA  119,10,191,0,1,137,6 

2,254,0,255,  1029 
OF  550  DATA  38,191,1,32,32,69,79 

,70,243,164,  919 
HP  551  DATA  94,95,90,89,91,255,3 

8,254,0,10,  1016 
OB  532  DATA  70,111,114,109,97,11 

6,58,32,32,67,  806 
(ID  553  DATA  79,77,80,65,67,75,82 

,32,111,117,  785 
FA  554  DATA  116,112,103,109,95,1 

10,97,109,101,32,  984 
1*555  DATA  105,110,112,103,109, 

49,32,105,110,112,  947 
(L  556  DATA  103,109,50,32,46,46, 

46,13,10,10,  465 
JN  557  DATA  78,111,116,101,58,32 

,32,32,32,80,  672 
(1558  DATA  114,111,103,114,97,1 

09,115,32,77,85,  957 
B»  559  DATA  83,84,32,98,101,32,1 

05,110,32,116,  793 
BB  560  DATA  104,101,32,67,117,11 

4,114,101,110,116,  97i 
HI  561  DATA  32,68,105,114,101,99 

,116,111,114,121,  981 
JB  562  DATA  32,111,102,13,10,9,3 

2,32,116,104,  561 
KI  563  DATA  101,32,68,101,102,97 

,117,108,116,32,  874 
Oft  564  DATA  68,114,105,118,101,4 

6,32,32,78,111,  805 
IB  565  DATA  32,69,120,116,101,11 

0,115,105,111,110,  989 
on  566  DATA  115,46,13,10,36,47,6 

,47,6,46,  372 
PL  567  DATA  67,79,77,0,32,32,32, 
32,32,32,  413 


fP  568  DATA  32,32,32,45,32,32,67 

,114,101,97,  584 
IH   569  DATA  116,101,100,32,66,12 

1,32,116,104,101,  889 
ftC  570  DATA  32,67,79,77,80,65,67 

,75,82,32,  656 
EO  571  DATA  80,114,111,103,114,9 

7,109,46,32,32,     838 
flO   572   DATA    58,92,46,78,111,32,7 

9,117,116,112,     841 
IP   S73   DATA    117,116,32,70,105,10 

8,101,13,10,36,  708 
Dfl  S74  DATA  78,111,32,73,110,112 

,117,116,32,70,  SSI 
Kfl  575  DATA  105,108,101,115,13,1 

0,36,68,114,105,  775 
BJ  576  DATA  118,101,47,80,97,116 

,104,47,69,120,  899 
LP  577  DATA  116,101,110,115,105, 

111,110,115,32,78,  993 
fB  578  DATA  111,116,32,65,108,10 

8,111,119,101,100,  971 
KE  579  DATA  13,10,36,68,105,114, 

101,99,116,111,  773 
6P  580  DATA  114,121,32,70,117,10 

8,108,32,111,114,  927 
KB  581  DATA  32,82,101,97,100,32, 

79,110,108,121,  862 
AE  582  DATA  32,70,105,108,101,13 

,10,36,68,105,  648 
HE  583  DATA  115,107,32,70,117,10 

8,108,13,10,36,  716 
6F  584  DATA  32,70,105,108,101,32 

,78,111,116,32,  785 
NK  585  DATA  70,111,117,110,100,1 

3,10,36,32,70,  669 
FO  5S6  DATA  105,108,101,32,78,97 

,109,101,32,84,  847 
OK  587  DATA  111,111,32,76,111,11 

0,103,13,10,36,  713 
JN  588  DATA  80,114,111,103,114,9 

7,109,32,84,111,  955 
CL  589  DATA  111,32,76,111,110,10 

3,13,10,36,67,  669 
ED  590  DATA  79,77,80,65,67,75,82 

,32,70,105,  732 
BC  591  DATA  110,105,115,104,101, 

100,13,10,36,180,  874 
DP  592  DATA  9,205,33,195,252,128 

,62,128,0,0,  1012 
XC  593  DATA  119,24,235,3,232,238 

,253,198,6,140,  1450 
LH  594  DATA  1,36,186,8,1,232,227 

,255,186,253,  1385 
nS  595  DATA  2,232,221,255,205,32 

,190,129,0,172,  1438 
KE  596  DATA  60,13,116,21,232,54, 

253, 136, 68, 255,  1208 
NK  597  DATA  191,198,3,185,3,0,24 

2,174,117,235,  1348 
HS  59S  DATA  186,235,3,235,205,19 

0,129,0,232,236,  1631 
HD  599  DATA  252,115,12,227,5,186 

,218,3,235,190,  1443 
CN  600  DATA  186,201,3,235,185,86 

,139,242,191,152,  1620 
SH  601  DATA  3,243,164,87,190,152 

,3,191,10,1,  1044 
HE  602  DATA  185,46,0,243,164,95, 

185,5,0,190,  1113 
EP  603  DATA  147,3,243,164,94,232 

,189,252,131,249,  1704 
m   604  DATA  0,119,3,233,156,0,13 

1,249,8,118,  1017 
LF  605  DATA  5,186,80,4,235,134,8 

6,139,242,139,  1250 
BN  606  DATA  217,139,62,145,3,243 

,164,185,8,0,  1166 
BE  607  DATA  43,203,176,32,243,17 

0,139,203,139,242,  1590 
LE  608  DATA  191,93,0,243,164,185 

,5,0,190,147,  1218 
FL  609  DATA  3,243,164,186,93,0,1 


84,0,61,205,  1139 
CJ  610  DATA  33,115,25,190,93,0,1 

39,214,172,60,  1041 
DO  611  DATA  0,117,251,198,68,253 

, 36 , 232 , 55 , 255,  1 467 
NK  612  DATA  186,62,4,232,49,255, 

205,32,139,216,  1380 
BI  613  DATA  51,201,139,209,184,2 

,66,205,33,80,  1170 
SC  614  DATA  131,250,0,117,12,3,6 

,145,3,114,  781 
PD  615  DATA  6,59,6,6,0,114,9,88, 

186, 102,  576 
CJ  616  DATA  4,232,11,255,205,32, 

184,0,66,205,  1194 
if   617  DATA  33,89,139,62,145,3,1 

37,77,8,141,  834 
FD  618  DATA  85,10,139,194,3,193, 

163,145,3,180,  1115 
6H  619  DATA  63,205,33,180,62,205 

,33,94,78,233,  1186 
NO  620  DATA  89,255,190,237,2,139 

,62,145,3,185,  1307 
ND  621  DATA  5,0,1,14,145,3,243,1 

64,139,62,  776 
6K  622  DATA  145,3,139,199,45,66, 

3,144,163,191,  1098 
DN  623  DATA  1,190,242,2,185,11,0 

,1,14,145,  791 
IH  624  DATA  3,243,164,184,144,14 

4,191,0,1,171,  1245 
HE  625  DATA  170,51,201,186,152,3 

,180,60,205,33,  1241 
HI  626  DATA  115,8,186,15,4,232,1 

63,254,205,32,  1214 
DS  627  DATA  139,216,186,0,1,185, 

237,2,43,202,  1211 
KF  628  DATA  180,64,205,33,59,193 

,116,19,180,62,  1111 
fS  629  DATA  205,33,186,152,3,180 

,65,205,33,186,  1248 
Lf  630  DATA  50,  4,  232, 126,  254,  205 

,32,139,22,143,  1207 
BL  631  DATA  3,139,14,145,3,43,20 

2,180,64,205,  996 
B*  632  DATA  33,59,193,117,219,18 

0,62,205,33,186,  1287 
iP  633  DATA  121,4,232,96,254,205 

,32,0,0,0,    944  Q 
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Amiga  System  Fonts 


This  short  program  illustrates  how  to 

select  different  system  fonts  and  text 
styles  under  program  control  in 
Amiga  BASIC. 


Nearly  every  Amiga  owner  recog- 
nizes that  there  are  two  system  text 
fonts.  If  you  open  the  Preferences 
tool,  you  can  switch  between  the 
80-column  font,  actually  called  To- 
paz Eight  Point,  or  the  60-column 
font,  called  Topaz  Nine  Point.  The 
font  which  you  select  from  Prefer- 
ences is  carried  over  when  you  acti- 
vate Amiga  BASIC.  Many  Amiga 
BASIC  programs  are  written  with 
the  assumption  that  you  have  se- 
lected one  font  or  the  other — either 
Topaz  Eight  or  Topaz  Nine,  If  you 
run  a  program  only  to  find  that 
printing  is  not  aligned  correctly,  the 
cause  is  usually  that  you're  using 
the  wrong  font.  The  only  remedy  is 
to  exit  BASIC,  open  Preferences, 
select  the  other  font,  and  run  the 
program  all  over  again. 

In  fact,  there's  no  need  to  make 
users  play  "guess  the  font"  when 
they  run  Amiga  BASIC  programs. 
With  a  relatively  simple  system  call, 
you  can  select  either  of  the  system 
fonts  under  program  control.  And 
the  same  system  call  can  be  used  to 
select  special  text  styles,  including 
boldface,  italics,  and  underlining. 
The  subprogram  included  with  this 
article  makes  it  all  easy  to  do. 

Opening  The  Library 

To  change  fonts  under  program 
control,  you  must  make  a  call  to 
operating  system  routines.  A  group 
of  system  routines  is  known  as  a 
library;  the  particular  library  which 
we  need  is  called  graphics.library. 


Daniel  L.  Stockton 

The  door  to  the  library  is  opened 
with  the  BASIC  statements  LI- 
BRARY and  CALL. 

Type  in  the  program  and  save 
it.  Before  you  run  the  program,  you 
must  make  sure  that  a  special  sys- 
tem file  is  on  your  BASIC  work 
disk.  When  BASIC  executes  the  LI- 
BRARY command  in  this  program, 
the  Amiga  looks  for  a  file  named 
graphics.bmap  which  enables  it  to 
locate  graphics.library  routines.  If 
graphics.bmap  can't  be  found,  the 
computer  displays  an  error  box. 

The  simplest  way  to  make  sure 
that  graphics.bmap  can  be  found  is 
to  copy  it  from  the  BasicDemos 
drawer  (subdirectory)  of  your  Ex- 
tras disk  to  the  LIBS  subdirectory  of 
your  BASIC  work  disk.  Enter  these 
commands  to  perform  the  copy 
from  the  CLI: 

COPY  ExtrasiB  asicDemos/graphics.bmap 
TO  ram: 

COPY  rain:graphics.btnap  TO  work- 
bench; libs 

DELETE  ramigiaphics.bmap 

These  commands  assume  that 
your  BASIC  work  disk  is  named 
workbench.  If  it  is  not,  substitute 
your  disk  name  for  workbench  in  the 
second  AmigaDOS  command.  (If 
the  disk  name  contains  a  space,  you 
must  enclose  that  portion  of  the 
command  in  quotes.  For  example,  if 
your  work  disk  is  named  BASIC 
Programs,  then  the  command  will 
be  COPY  ram:graphics.bmap  TO 
BASIC  Programs:libs.)  When  it  en- 
counters LIBRARY  in  a  program, 
the  computer  automatically  search- 
es the  LIBS  subdirectory  for  the 
designated  file. 

Another  way  to  insure  access 
to  the  .bmap  file  is  to  use  CHDIR 
before  the  LIBRARY  statement. 
CHDIR  can  be  used  to  specify  a 
particular  subdirectory  as  the  cur- 


rent directory  for  DOS  access.  If 
you  create  a  subdirectory  devoted 
exclusively  to  .bmap  files,  then  ev- 
ery program  can  perform  a  CHDIR 
to  that  directory  before  attempting 
a  LIBRARY  command.  One  advan- 
tage of  the  second  method  is  that  it 
avoids  unnecessary  duplication  of 
.bmap  files  in  a  case  where  you 
keep  BASIC  programs  in  more  than 
one  subdirectory  on  a  disk. 

Styles 

Once  graphics.bmap  is  located  in 
the  correct  place,  load  and  run  the 
program.  It  prints  eight  different 
text  styles  in  each  of  the  two  system 
fonts.  The  variable  styleVo  controls 
which  style  is  selected;  here  is  an 
explanation  of  the  different  values 
assigned  to  that  variable: 
style%   Result 

0  plain  text 

1  underlined 

2  boldface 

3  boldface,  underlined 

4  italics 

5  italics,  underlined 

6  italics,  boldface 

7  italics,  boldface,  underlined 

The  subprogram  named  Font- 
Change  is  designed  to  be  merged 
with  your  own  programs.  Once  you 
know  that  the  demonstration  works 
correctly,  you  can  delete  everything 
but  the  FontChange  subprogram 
and  save  it  in  ASCII  form  (type 
SAVE  "FontChange",A  and  press 
RETURN).  You  can  then  add  it  to 
another  program  with  a  MERGE 
command. 

Amiga  System  Forvfs 

REM  The  next  three  lines  must  be 
in  the  main  body  of  your  program 

REM  and  occur  before  any  calls  t 
o  subroutine  FontChange-* 

■♦ 
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DECLARE  FUNCTION  AskSof tSty leE,  L 

IBRARY* 

DECLARE  FUNCTION  OpenFontS.  LIBRA 

RY-* 

REM   Place  optional  CHDIR  comman 

d  Viere  to  point  to  the-* 

REM   graphics .bmap  file  director 

y  as  next  line  example:* 

REM   CHDIR  "ABC:D"< 

REM  which  points  to  voluirie/disk 

ABC  directory  D* 

LIBRARY  "graphics . library "< 

-* 

REM  The  format  for  a  CALL  to  Fo 

ntChange  is:-* 

REM       CALL  FontChange  ("topa 

z.  font"  ,height%,  style*  )-« 

REM        "topaz. font"  is  the  na 

me  of  the  system  font-* 

REM       height%  is  a  short  int 

eger  variable  to  be  selected* 

REM  as  8  or  9* 

REM        style%  is  a  short  inte 

ger  variable  to  be  selected  * 

REM  as  0  through  7  < 

.« 

REM  The  nine  lines  of  Testit  be 

low  are  for  testing  only* 

REM   and  should  be  replaced  by  y 

our  application{The  main  body* 

REM   of  your  program).* 

* 

Testit :* 

CLS* 

FOR  height%=8  TO  9* 

FOR  style%a0  TO  7* 

CALL  FontChange  ( "topaz. font" , he 

ight%, style% )* 

PRINT   "This  is  the  topaz  font  o 

f  height  ",-height%;"  style  "  ;  sty 

lei* 

NEXT  style** 

NEXT  height%* 

CALL  FontChange  (" topaz . font" , 8 , 

0)* 

REM  The  library  should  be  closed 

when  no  longer  required* 

* 

LIBRARY  CLOSE* 

END* 

4 

REM   The  subroutine  FontChange  s 

hould  be  placed  at  the  bottom* 

REM   of  your  program  after  the  E 

ND  statement* 

* 

SUB  FontChange C font? , height* , sty 

le%)  STATIC* 

SHARED  pFont&* 

IF  pFontioa  THEN  CALL  CloseFont 

CpFontJ.  )* 

f ontAS  =  f ont5■^CHRS  ( 0 )  * 

text Attr& ( 0  >  =  SADD ( f ontA$ ) * 

textAttr&(l)=height%*65536s.  -I-  st 

yle%*256  * 

pFont&=OpenFont«<  ( VARPTR(  textAttr 

6.(0)))* 

IF  pFonta  <>  0  THEN  SetFont  WIND 

OW{e) ,pFont&* 

pe_rmit%=AsXSoftStyle&(WINDOW(e) ) 

* 

SetSoftStyle  WIND0W[8) , style* , pe 

rmit** 

END  SUB* 


Structured 
BASIC  64 


Scott  Kell 


This  unusual  Commodore  64  utility 

should  interest  anyone  who  wants  to 
learn  about  structured  programming 
techniques.  It  introduces  several  new 
commands  and  programming  features 
to  Commodore  64  BASIC. 


Recently,  structured  programming 
languages  such  as  Pascal,  Modula- 
2,  Forth,  and  C  have  been  growing 
in  popularity.  In  the  most  general 
sense,  a  structured  language  is  one 
which  encourages  you  to  break  a 
program  down  into  different  parts, 
each  of  which  performs  a  separate, 
identifiable  function.  Among  other 
things,  this  technique  simplifies  the 
process  of  writing  big,  complicated 
programs  because  each  module,  or 
section  of  the  program,  can  be  test- 
ed separately.  In  addition,  struc- 
tured programs  can  be  easier  for 
others  to  read  and  understand, 

BASIC,  on  the  other  hand, 
does  little  to  encourage  structured 
programming,  a  feature  for  which  it 
has  often  been  criticized.  "Struc- 
tured BASIC  64"  is  designed  to 
help  you  make  the  transition  from 
BASIC  to  the  world  of  structured 
programming.  It  modifies  Commo- 
dore 64  BASIC  to  support  a  more 
structured  programming  style,  (It 
does  not,  however,  reproduce  all 


the  features  of  any  of  the  languages 
mentioned  above.  Obviously,  if 
you  wish  to  learn  C  or  Pascal,  you 
need  a  compiler  and  some  good 
programming  texts — not  a  modifi- 
cation of  BASIC.) 

Since  Structured  BASIC  64  is 
written  in  machine  language,  it  has 
to  be  typed  in  with  COMPUTEI's 
"MLX"  machine  language  entry 
program,  found  elsewhere  in  this 
issue.  When  you  run  MLX,  you'll  be 
asked  for  stardng  and  ending  ad- 
dresses for  the  data  you'll  be  enter- 
ing. The  addresses  you  need  for 
Structured  BASIC  64  are  as  follows: 

Starting  address:     COOO 
Ending  address:       C44F 

Load  Structured  BASIC  64 
with  the  command,  LOAD  "file- 
name",8,l  for  disk  or  LOAD  "file- 
name",l,\  for  tape.  When  the 
READY  prompt  reappears,  type 
NEW  and  press  RETURN.  To  acti- 
vate Structured  BASIC  64,  type  SYS 
49152  and  press  RETURN,  When 
using  this  program,  take  care  not  to 
POKE  new  values  in  locations 
49152-50671,  since  that  area  is 
used  by  the  program  itself.  It  also 
uses  the  RAM  hidden  underneath 
the  computer's  BASIC  ROM,  so  you 
also  should  avoid  any  activity  that 
disturbs  that  memory.  Because 
Structured  BASIC  64  changes  the 
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way  that  BASIC  works,  it  may  not 
work  with  other  BASIC  program- 
ming utilities. 

Begin  At  The  Beginning 

Structured  BASIC  64  adds  several 
new  or  modified  keywords  to 
BASIC.  Four  of  these  are  IF,  THEN, 
ELSE,  and  ENDIF.  IF  and  THEN 
are  among  the  most  popular,  and 
most  frequently  abused,  BASIC 
statements.  These  lines  exemplify  a 
common  form  of  misuse: 

10  INPUT  A 

20  IF  A=0  THEN  PRINT"A  IS  ZERO 

30  IF  A<>0  THEN  PRINT"A  IS  NOT 
ZERO" 

These  three  lines  check  wheth- 
er A  is  equal  to  zero,  but  the  meth- 
od is  cumbersome  and  inefficient, 
since  it  requires  two  separate  IF 
tests  and  two  separate  THEN  state- 
ments. In  Structured  BASIC  64,  the 
previous  example  can  be  replaced 
by  the  following  lines: 

10  INPUT  A 

20  IF  A=0  THEN  PRINT"A  IS  ZERO 

"  :  ELSE  PRINT"A  IS  NOT  ZER 

0" 
30  :  ENDIF 

This  version  is  much  more 
compact.  When  the  computer  finds 
the  IF  statement,  it  checks  whether 
the  expression  after  IF  is  true.  If  the 
expression  is  true,  the  computer  ex- 
ecutes only  the  statements  between 
THEN  and  ELSE.  If  the  expression 
is  false,  it  performs  only  the  state- 
ments between  ELSE  and  ENDIF, 
After  BASIC  finds  ENDIF,  the  pro- 
gram continues  normally. 

With  ELSE  and  ENDIF,  the  tra- 
ditional IF  clause  becomes  more 
flexible.  The  ELSE  and  THEN  state- 
ments need  not  appear  on  the  same 
line  as  IF: 


5  INPUT  A 

10 

IF  A=0 

20 

:  THEN 

PRINT 

'A 

IS 

ZERO 

" 

30 

:  ELSE 

PRINT 

'A 

IS 

NOT 

ZERO 

40 

:  ENDIF 

This  code  is  easier  to  under- 
stand than  the  first  example.  Locat- 
ing THEN  and  ELSE  statements  on 
separate  lines  can  serve  a  practical 
purpose,  as  well.  How  many  times 
have  you  run  out  of  space  on  a  line 
after  an  IF  statement?  For  example, 
let's  say  that  a  long  string  of  charac- 
ters is  to  be  printed  when  the  vari- 
able A$  is  equal  to  "STRUCTURED- 


PROGRAMMING".  Here's  how 
you  might  write  the  code  in  con- 
ventional Commodore  64  BASIC: 

10  INPUT  A? 

20  IF  A$="STRUCTURED  PROGRAMMI 

NG"  THEN  40 
30  GOTO  50 
40  PRINT"THIS  IS  THE  SUPER  LON 

G  STRING  OF  CHARACTERS  THAT 
WON'T  FIT  ON  LINE  20" 
50  STOP 

This  program's  logic  is  need- 
lessly complex,  simply  because  the 
statement  which  should  come  after 
THEN  is  too  long  to  fit  into  the 
remainder  of  line  20.  Two  extra 
GOTO  statements  are  required:  the 
implied  GOTO  after  THEN  on  line 
20  and  the  explicit  GOTO  in  line 
30.  The  more  unnecessary  GOTOs 
a  program  includes,  the  harder  it  is 
to  read  and  debug.  Here's  how  to 
do  the  same  job  with  Structured 
BASIC  64: 

10  INPUT  A$ 

20  IF  A5=" STRUCTURED  PROGRAHHI 

NG"  THEN 
30  PRINT "THIS  IS  THE  SUPER  LON 

G  STRING  OF  CHARACTERS  THAT 
WON'T  FIT  ON  LINE  20" 
40  ENDIF 
50  STOP 

Now  the  program's  structure  is 
simple  and  straightforward,  with- 
out needless  GOTO  branches.  In 
Structured  BASIC  64,  every  IF 
clause  must  end  with  an  ENDIF 
statement.  However,  ELSE  is  op- 
tional. Thus,  you  can  use  IF-THEN- 
ELSE-ENDIF  or  IF-THEN-ENDIF, 
but  you  may  not  use  IF-THEN 
without  a  closing  ENDIF. 

Looping  Around 

Loops  are  an  integral  part  of  any 
kind  of  programming.  In  fact  one  of 
a  computer's  main  strengths  is  the 
ability  to  do  repetitive  tasks  quickly. 
Most  structured  languages  support 
several  different  looping  methods. 
Commodore  64  BASIC  supports 
only  one  explicit  loop  structure: 
FOR-NEXT.  (You  can  create  loops 
with  IF  and  GOTO,  but  GOTO  is 
usually  considered  a  branching 
command.)  Unfortunately,  FOR- 
NEXT  loops  are  inconvenient  for 
certain  programming  tasks.  Consid- 
er the  following  code  fragment: 

10  PRINT"PRESS  'Q'  IF  YOU  WANT 

TO  QUIT  THE  PROGRAM." 
20  GET  A$ 

30  IF  A5=""  THEN  GOTO  20 
40  IF  A?="Q"  THEN  STOP 


50  PRINT"THE  PROGRAM  IS  CONTIN 

UING" 
60  REM  PROGRAM  CONTINUES 

This  program  contains  a  loop 
in  lines  20-30,  but  the  loop  is  dis- 
guised in  the  form  of  an  IF  with  a 
GOTO.  What  the  programmer  wants 
to  do  is  loop  until  a  specified  condi- 
tion is  satisfied  (in  this  case,  until 
you  press  a  key).  Structured  BASIC 
64  borrows  a  technique  from  Pascal 
to  solve  such  problems.  This  pro- 
gram accomplishes  the  same  task: 

10  PRINT"PRESS  'Q'  IF  YOU  WANT 

TO  QUIT  THE  PROGRAM." 
20  :  REPEAT 
3  0  GET  A$ 
40  :  UNTIL  A$ <> " " 
50  IF  A$="Q"  THEN  STOP  :  ENDIF 
60  PRINT"THE  PROGRAM  IS  CONTIN 

UING. " 
70  REM  PROGRAM  CONTINUES 

In  this  version,  the  loop  is 
found  in  lines  20-40.  The  REPEAT 
statement  tells  BASIC  to  perform 
all  the  statements  it  finds  between 
REPEAT  and  UNTIL.  The  UNTIL 
statement  marks  the  end  of  the  loop 
and  it  also  states  the  condition  to  be 
tested.  If  the  expression  after  UN- 
TIL is  false,  the  computer  repeats 
everything  between  REPEAT  and 
UN'TIL  and  tests  the  expression 
again.  This  process  continues  until 
the  condition  is  satisfied,  at  which 
point  the  computer  exits  the  loop 
and  proceeds  with  the  rest  of  the 
program. 

The  keywords  REPEAT  and 
UNTIL  make  it  clear  what  is  hap- 
pening. The  effect  is  to  enhance  the 
program's  readability  while  elimi- 
nating the  mishmash  of  IF  and 
GOTO  statements. 

It's  important  to  note  that  the 
statements  inside  a  REPEAT-UN- 
TIL  loop  are  always  performed  at 
least  once.  This  occurs  because  the 
computer  doesn't  check  the  condi- 
tion until  it  reaches  UNTIL  at  the 
end  of  the  loop.  In  some  program- 
ming situations,  you  might  want 
the  computer  to  check  the  condition 
before  it  performs  the  statements 
contained  in  the  loop.  The  WHILE- 
WEND  loop  is  designed  for  exactly 
such  cases: 

10  :  WHILE  A?="" 
20  GET  A? 
30  :  V/END 

40  PRINT"THE  KEY  '";A$;"'  HAS 
JUST  BEEN  PRESSED" 
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This  program  does  the  same 
thing  as  the  previous  example;  as 
long  as  you  have  not  pressed  a  key, 
it  scans  the  keyboard  over  and  over. 
However,  the  logic  is  different. 
When  it  encounters  the  WHILE 
statement,  the  computer  immedi- 
ately tests  the  condition  that  ap- 
pears after  WHILE.  If  that 
expression  is  true,  the  computer  ex- 
ecutes all  the  statements  found  be- 
tween the  WHILE  condition  and 
the  WEND  which  closes  the  loop.  If 
the  expression  is  false,  the  com- 
puter falls  through  all  of  the  inter- 
vening statements  and  executes  the 
next  statement  after  WEND. 

In  this  case,  both  examples  do 
the  same  ultimate  task.  But  if  the 
condition  after  WHILE  had  been 
false,  the  computer  would  have 
skipped  immediately  past  WEND, 
without  performing  anything  in  the 
loop. 

REPEAT-UNTIL  and  WHILE- 
WEND  loops  can  both  be  nested — 
that  is,  either  kind  of  loop  can  exist 
inside  another  loop.  Just  remember 
that  each  REPEAT  needs  an  UN- 
TIL, and  each  WHILE  needs  a 
WEND.  If  there  are  too  many  UN- 
TILs  or  too  many  WENDs,  Struc- 
tured BASIC  64  prints  the  error 
message  WEND,  UNTIL,  OR  CASE 
ERROR  IN  XXXXX,  replacing 
XXXXX  with  the  line  number  in 
which  the  error  occurred. 

CASE  For 
Complex  Decisions 

Have  you  ever  written  a  menu- 
driven  program  that  uses  a  bunch 
of  IF  clauses  like  this? 

10  PRINT "WHICH  CHOICE  DO  YOU  W 

ANT"; : INPUT  A? 
20  IF  A5="A"  THE^3  GOSUB  100  :G0 

TO  10 
30  IF  AS="B"  THEN  GOSUB  200:GO 

TO  Ifl 
40  IF  A5="C"  THEN  GOSUB  300:GO 

TO  10 
50  IF  AS="D"  THEN  GOSUB  400 :G0 

TO  10 
60  IF  A5="E"  THEN  GOSUB  500 :G0 

TO  10 
70  PRINT" I  DON'T  UNDERSTAND  YD 

UR  CHOICE" 
80  GOTO  10 

This  program  waits  for  you  to 
make  a  menu  choice  by  pressing  a 
letter  from  A  to  £.  If  you  pick  A,  the 
program  branches  to  a  subroutine 
at  line  100.  If  you  choose  £,  it  goes 
to  a  routine  at  line  500.  After  the 


subroutine  is  complete,  the  pro- 
gram asks  for  your  next  choice.  If 
you  choose  something  that's  not 
offered,  it  tells  you  to  make  another 
choice. 

The  long  series  of  IF  state- 
ments, each  paired  with  identical 
GOTO  statements,  is  not  an  effi- 
cient solution.  BASIC  does  provide 
ON-GOTO  and  ON-GOSUB  for 
such  situations,  but  those  state- 
ments have  limitations,  too.  Here's 
how  you  can  handle  the  same  prob- 
lem in  Structured  BASIC  64,  which 
adds  a  CASE  statement  similar  to 
that  of  the  C  language: 

10  PRINT "WHICH  CHOICE  DO  YOU  WA 

NT"; : INPUT  A? 
30  :  CASES  OF  A$ 

30  :  CASE  "A":GOSUB  100:ENDCASE 
40  :  CASE  "B": GOSUB  200:ENDCASE 
50  :  CASE  "C":GOSUB  300;ENDCASE 
60  :  CASE  "D":G0SUB  400;ENDCASE 
70  :  CASE  "E":G0SUB  500rENDCASE 
80  :  OTHERVmiSE 
90  :  PRINT"I  DON'T  UNDERSTAND  Y 

OUR  CHOICE" 
95  ENDCASES 
99  GOTO  10 

Here  are  five  new  statements: 
CASES  OF,  CASE,  ENDCASE, 
OTHERWISE,  and  ENDCASES. 
We'll  look  at  each  of  them  in  turn. 

This  sort  of  structure  is  well- 
suited  for  a  situation  where  you 
want  to  perform  several  different 
tasks  based  on  a  single  condition.  In 
this  circumstance,  you  want  to 
branch  to  different  subroutines,  de- 
pending on  what  value  A$  has  been 
given. 

The  entire  decision-making 
structure  is  enclosed  by  CASES  OF 
and  ENDCASES.  The  CASES  OF 
statement  indicates  which  condi- 
tion to  test — in  this  example,  the 
value  of  A$.  The  ENDCASES  state- 
ment marks  the  end  of  the 
structure. 

Each  CASE  statement  is  fol- 
lowed by  an  expression.  When  it 
encounters  each  CASE,  the  com- 
puter tests  the  expression  to  see 
whether  it  matches  the  condition 
stated  in  CASES  OF.  If  the  expres- 
sion is  false,  the  computer  passes 
on  to  the  next  CASE.  If  it  is  true,  the 
computer  executes  all  the  state- 
ments found  between  that  CASE 
and  the  next  ENDCASE  statement. 
Thus,  each  CASE  must  be  matched 
by  its  own  ENDCASE. 

The  OTHERWISE  statement 
allows  you  to  take  some  action  in 


the  event  that  none  of  the  CASE 
statements  are  true.  This  statement 
is  optional;  if  it  is  absent,  the  com- 
puter simply  falls  though  to  END- 
CASES.  (If  you  include 
OTHERWISE,  be  sure  to  put  it  at 
the  very  end  of  the  CASES 
OF-ENDCASES  structure,  as 
shown  in  this  example.) 

Every  CASES  OF  structure 
must  begin  with  CASES  OF,  end 
with  ENDCASES,  and  include  at 
least  one  CASE-ENDCASE  pair. 
Incidentally,  a  CASE  statement  can 
be  followed  by  a  list  of  variables  or 
constants,  separated  by  commas;  if 
any  of  the  expressions  match  the 
CASES  OF  condition,  the  state- 
ments after  CASE  are  performed. 
This  example  demonstrates  the  use 
of  multiple  expressions  with  CASE, 
as  well  as  the  nesting  of  CASES  OF 
structures. 

10  INPUT "WHAT  DO  YOU  WANT  N  TO 

BE  "  ;  N 
15  :  CASES  OF  N 
20  :  CASE  1,2:PRINT"N  IS  EITHE 

R  ONE  OR  TWO" 
25  :  INPUT"WHAT  DO  YOU  WANT  X 

TO  BE";X 
30  :  CASES  OF  X 
35  :  CASE  1: PRINT  "X=1":ENDCAS 

E 

40  :  CASE  2: PRINT  "X=2"jENDCAS 

E 
45  ;  ENDCASES 
50  :  ENDCASE 
55  :  CASE  2,3:PRINT"N  IS  EITHE 

R  TWO  OR  THREE": ENDCASE 
60  :  OTHERWISE: PRINT"I  DON'T  K 

NOW  WHAT  N  IS" 
65  ENDCASES 

This  example  adds  another 
feature  beloved  by  many  structured 
programmers:  meaningful  indenta- 
tion. Notice  how  the  indentation  of 
lines  make  the  overall  structure 
more  clear.  If  you  wish  to  indent 
lines  for  readability,  you  must  put  a 
colon  at  the  beginning  of  the  line. 
(BASIC  ignores  any  spaces  between 
the  line  number  and  the  first  alpha- 
numeric character.) 

Labeled  Subroutines 

Another  drawback  of  Commodore 
64  BASIC  is  that  the  target  of  a 
GOSUB  statement  must  always  be 
a  line  number.  Say  that  you  are 
reading  a  program  and  encounter 
the  statement  GOSUB  6100.  The 
only  way  to  discover  what  that  sub- 
routine does  is  to  find  line  6100  and 
examine  the  code.  Once  you  get 
sidetracked,  you  can  easily  lose 
your  place  in  the  main  program  or 
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forget  what  was  happening  prior  to 
the  GOSUB. 

Wouldn't  it  be  nice  if  BASIC  let 
you  call  a  subroutine  by  name  in- 
stead of  a  number?  Languages  like 
C  and  Pascal  (as  well  as  some  ver- 
sions of  BASIC)  let  you  refer  to 
subroutines  with  meaningful  la- 
bels. Here  is  an  example  of  a  la- 
beled subroutine  in  Structured 
BASIC  64: 

1000  "PRINT  'HI'  ON  THE  SCREEN 
"  !  PRINT "HI"  :  RETURN 

You  can  call  this  routine  in  the 
old  way,  with  GOSUB  1000,  or  you 
can  do  it  the  new  way,  with  GO- 
SUB "PRINT  'HI'  ON  THE 
SCREEN".  As  this  example  shows, 
a  meaningful  label  can  make  the 
purpose  of  a  subroutine  immediate- 
ly apparent. 

The  label  must  be  enclosed  in 
quotation  marks  and  it  must  be  the 
first  thing  in  the  line.  A  colon  must 
follow  the  label  to  separate  it  from 
other  statements  on  the  line. 

You  can  GOTO  a  labeled  line, 
as  well.  However,  you  cannot  use 
labels  with  ON-GOTO  or  ON-GO- 
SUB.  That's  not  a  problem  with 
Structured  BASIC  64,  since  you  can 
always  replace  ON-GOSUB  with 
the  more  powerful  CASES  OF 
structure. 

Subroutines  are  an  important 
part  of  structured  programming, 
since  they  help  break  a  big,  compli- 
cated job  into  smaller,  more  man- 
ageable jobs.  They  are  also  very 
useful  in  debugging.  If  you  separate 
each  part  of  the  program  into  dis- 
crete, testable  modules,  it's  much 
easier  to  pinpoint  problems. 

Abbreviations 

Structured  BASIC  64  adds  or  modi- 
fies 15  BASIC  commands.  Most  of 
them  have  abbreviations,  just  like 
the  normal  BASIC  commands. 


Command 

REPEAT 

UNTIL 

WHILE 

WEND 

CASES  OF 

CASE 

ENDCASE 

OTHERWISE 

ENDCA5ES 

IF 

THEN 

ELSE 

ENDIF 

GOTO 

GOSUB 


Abbreviation 

R-SHIFT-E 

U-SHIFT-N 

W-SHIFT-H 

W-SHIFT-E 

C-SH!FT-A-SPACE-OF 

no  abbreviation 

no  abbreviation 

O-SHIFT-T 

END-SHIFT-C 

no  abbreviation 

T-SHIFT-H 

E-SHIFT-L 

END-SHIFT-I 

G-SHiFT-O 

GO-SHIFT-S 


Now  it's  your  turn  to  experi- 
ment with  Structured  BASIC  64.  By 
experimenting  with  this  version  of 
Commodore  BASIC,  you'll  be  ex- 
posed to  some  of  the  ideas  behind 
the  new  wave  of  microcomputer 
programming  languages.  This  ex- 
posure, in  turn,  may  help  you  de- 
cide if  you  want  to  make  the  leap  to 
another  one  of  the  high-level  lan- 
guages. Once  you  become  comfort- 
able with  using  these  new  tools, 
you'll  find  it  easier  to  learn  the  rules 
of  those  languages,  as  well. 

Structured  BASIC  64 

Please  refer  to  the  "MLX"  article  in  this  issue 
before  entering  the  foiiowing  program. 


C000 

C00S 
0010 
C018 
C020 
C028 
C030 
C03a 
C040 
C048 
C050 
C058 
C060 
0068 
C070 
C07a 
C080 
C088 
C090 
C098 
C0A0 
C0Aa 
C0B0 
C0B8 
C0C0 
C0C3 
C0D0 
C0D8 
C0E0 
C0EB 
C0F0 
C0F8 
C100 
C108 
C110 
CI18 
C120 
C128 
C130 
C138 
C140 
C148 
C150 
C158 
C160 
C168 
C170 
C178 
C180 
C188 
C190 
C198 
C1A0 
C1A8 
C1B0 
C1B8 
C1C0 
C1C8 
C1D0 


!A9  37 
!8C  18 
:C0  8E 
:FF  8D 
:03  EE 
:03  EE 
:D0  E4 
:06  03 
:18  C4 
:9D  B3 
:85  01 
:C0  8D 
:03  A9 
:eD  IB 
:A9  00 
:1F  A0 
tCl  8D 
:90  10 
:30  0B 
:D0  03 
:A7  08 
:A8  20 
:73  00 
:B0  11 
:BD  IF 
:4C  73 
!68  20 
:48  8A 
:2a  4C 
:FE  C2 
:C1  C2 
:F0  01 
:8D  11 
:8E  19 
:8E  19 
:E8  BE 
:4C  F5 
i20  04 
:3a  B0 
!00  C9 
;20  04 
iSC  EF 
iF0  03 
I  20  9C 
;C2  20 
:67  C3 
1 05  84 
:C2  A9 
;2C  EE 
:73  00 
:D0  01 
;00  D0 
:C2  CA 
IDE  20 
iC6  C3 
iCE  8A 
lEF  C5 
lEF  C5 
:C2  4C 


85  01 
C0  8E 
lA  C0 
FF  FF 
18  C0 
IB  C0 
A2  03 
CA  10 
9D  FF 
A5  CA 
A9  A0 
21  A0 
00  8D 
Aa  A9 
8D  IE 
A9  DF 
27  A0 
C9  D9 
20  46 
20  62 
20  F6 
AF  C0 
C9  CC 
38  DB 
C4  48 
00  C9 
79  00 
30  03 
8B  E3 
F0  03 
20  9C 
60  20 
C3  BD 
C3  20 
C3  A2 
15  C3 
C0  20 
C3  C9 
0A  4C 
00  F0 
C3  4C 
C5  20 
4C  08 
C2  4C 
DB  C2 
E8  E8 
93  20 
FF  20 
C5  30 
C9  00 
E8  C9 
06  20 
C9  D5 
73  00 
4C  87 
00  CB 
30  CI 
60  20 
73  CI 


A2 

00 

AO 

A0 

DB 

17 

C0 

8C 

IB 

C6 

A0 

20 

AD 

FF 

C5 

EE 

17 

C0 

00 

23 

EE 

lA 

C0 

00 

20 

CA 

00 

E7 

88 

48 

BD 

CF 

C3 

90 

2A 

F7 

A2 

02 

BD 

E3 

A5 

BD 

IB 

C4 

01 

10 

Fl 

A9 

36 

B8 

80 

20 

A0 

A9 

EB 

A9 

D7 

80 

00 

93 

01 

03 

A9 

01 

27 

C2 

80 

IC 

A8 

54 

A0 

A9 

C2 

80 

19 

8D 

26 

A0 

A9 

D4 

60 

08 

C9 

CC 

BB 

80 

0F 

24 

0F 

46 

C2 

38 

E9 

4C 

6C 

C2 

28 

4C 

lA 

D6 

C2 

28 

4C 

71 

2C 

4C 

AE 

A7 

20 

15 

90 

15 

C9 

D9 

38 

E9 

cc 

0A 

AA 

AC 

BD 

IE 

C4 

48 

3E 

22 

F0 

15 

68 

51 

4C 

E7 

A7 

08 

17 

20 

F6 

C2 

68 

22 

4C 

67 

C3 

20 

E0 

4C 

DB 

02 

4C 

8C 

C2 

20 

FE 

C2 

29 

DB 

C2 

A9 

D0 

4F 

15 

C3 

A2 

CE 

AB 

04 

C3 

A2 

01 

D9 

D3 

8E 

11 

C3 

82 

60 

20 

Cl 

C2 

5C 

FE 

02 

D0 

0E 

14 

00 

F0 

CB 

C9 

F6 

01 

02 

20 

79 

CF 

BD 

4C 

B2 

C0 

82 

B2 

C0 

A0 

00 

EB 

73 

00 

C9 

46 

3E 

AF 

20 

73 

00 

FB 

FE 

C2 

20 

9C 

10 

20 

Cl 

C2 

20 

A2 

ES 

Ea 

8E 

ED 

32 

CI 

C2 

20 

DB 

Al 

84 

C3 

D0 

54 

F2 

46 

A2 

00 

20 

6E 

F0 

21 

09 

CF 

6E 

D6 

D0 

08 

E0 

67 

73 

00 

4C 

DB 

23 

D0 

0F 

8A 

D0 

77 

4C 

5E 

Cl 

20 

91 

Cl 

C9 

D7 

00 

40 

20 

73 

00 

2C 

18 

60 

A9 

FF 

80 

07 

73 

00 

20 

9C 

3C 

2C 

EE 

C5 

10 

0C 

CIDS; 

Cl£0i 

C1E8: 

C1F0: 

C1F8: 

C200: 

C208i 

C210J 

C218: 

C220: 

C228! 

C230: 

C238: 

C240: 

C248: 

C250: 

C258: 

C260: 

0268: 

C270! 

C278: 

C280: 

0288: 

C290! 

C-298  : 

C2A0: 

C2A8: 

C2B0: 

C2B8: 

C2C0: 

C2C8; 

C2D0i 

C2D8: 

C2E0! 

C2Ea: 

C2F0: 

C2Fa: 

C300I 

C308: 

C310; 

C318! 

C320; 

C328 

C330 

C338 

C340 

C34B 

C350 

C358 

C360 

C36e 

C370 

C378 

C330 

C388 

C390 

C398 

C3A0 

C3Aa 

C3B0 

C3B8 

C3C0 

C3C8 

C3O0 

C3D8 

C3E0 

C3E8 

C3F0 

C3F8; 

0400 

C408: 

C410: 

C418: 

C420; 

C42a: 

C430: 

C438: 

C440: 

0448: 


Fl  A9 
C9  22 
03  20 
7A  48 
A9  BD 
A7  C9 
AS  A5 
3C  20 
A6  20 
00  C9 
7A  A5 
4C  19 
3C  85 
20  84 
BA  48 
03  BD 
10  F2 
68  60 
B0  OE 
9E  A0 
C2  A0 
20  46 
60  08 
A0  4C 
86  7A 
7A  20 
C2  A5 
20  B7 
ED  C4 
A4  AE 
C4  85 
BD  EA 
85  7A 
CA  CA 
20  F6 
C4  85 
00  8D 
AO  A5 
C3  20 
C9  D3 
C9  01 
00  F0 
00  F0 
7  3  00 
;4C  08 
:20  79 
;00  C9 
:0B  C9 
;C8  4C 
:F4  A9 
;00  84 
;99  4D 
:C4  C8 
;7B  C6 
;20  3B 
;Ce  20 
:A9  4C 
;20  Cl 
iA0  01 
;7A  85 
:E1  A7 
El  A7 
C3  90 
C0  A9 
;D4  5  5 
:49  4C 
:57  45 
i45  CE 

44  49 
4E  44 
54  48 

45  4E 
20  6A 
E6  C0 
22  Cl 
50  Cl 
57  45 
54  49 
43  41 


00  85 
F0  03 
FB  A3 
A5  3A 
48  20 
22  F0 
39  85 
67  C3 
AS  C3 

22  F0 
9F  85 
C2  A5 
3A  4C 
C3  F0 
A2  45 
D3  C3 
A9  36 
48  A9 
B9  9E 
C9  45 
00  84 
C2  A0 
48  98 
84  0B 
CA  60 
B7  C2 
39  20 
C2  8E 
E8  F0 
ED  C5 
3A  BD 
C4  85 

60  AE 
CA  CA 
C2  A9 

23  4C 
ED  C5 

61  60 
7  3  00 
F0  0B 
D0  ED 
0C  C9 
0D  CA 
20  C6 
AF  A9 
00  4C 
00  F0 
2C  F0 
46  C3 
FF  BD 
66  20 
C4  A9 
60  A5 
7A  60 
C3  A9 
9C  C2 
35  7A 
C2  20 
Bl  7A 
9F  F0 
20  C6 
18  60 
FA  18 

■C0  52 
4E  54 
C5  43 
4E  C4 
45  4C 
C6  43 

43  41 
45  52 

44  43 
C2  20 
Fl  C0 
2A  Cl 
90  Cl 
4E  44 
4C  2C 
53  C5 


66  4C 
4C  83 
A5  7B 
48  A5 
09  C2 
04  18 
3B  A5 

84  93 
B0  15 

19  A5 
7a  20 
3B  85 
E3  A8 
E0  60 
BO  9E 
9D  9E 

85  01 

37  85 
A0  00 
F0  0A 
0B  A9 

44  B9 

48  20 
68  AB 
AE  ED 
A5  7B 
B7  C2 
ED  05 
01  60 
F0  22 
EB  C4 
7B  BD 
ED  C5 
8E  ED 

38  85 
47  A4 
68  60 
A2  00 
C9  00 
C9  D4 
EB  00 
D3  F0 
4C  09 
C3  4C 
00  80 

49  C3 
0F  C9 
08  99 
60  24 
EE  C5 
3B  03 

82  ca 

7A  D0 
85  66 
00  99 
A9    C4 

20  FE 
DB  C2 
85  9E 
0F  A9 
A7  A9 
38  60 
4C    4B 

45  50 
49  CC 
41  53 
49  C6 
S3  C5 
41  53 
53  45 
57  49 
41  53 
89  02 
45  Cl 
3F  Cl 
BE  Cl 
2C  20 
20  4F 
28    00 


3B 

C3 

B6 

AB 

A9 

8B 

48 

A5 

01 

39 

48 

AF 

4C 

AE 

5A 

4C 

A0 

D8 

3A 

85 

35 

20 

8E 

26 

20 

73 

07 

9E 

85 

BD 

7B 

C3 

B7 

39 

A5 

DC 

A9 

00 

5E 

18 

48 

7F 

A0 

B0 

28 

A0 

CA 

F0 

68 

AA 

E6 

01 

38 

DF 

10 

AD 

35 

20 

62 

4D 

FF 

60 

2F 

9E 

A0 

F0 

46 

C2 

E4 

68 

28 

99 

C5 

A5 

BD 

20 

B7 

Al 

A5 

3A 

70 

60 

90 

5A 

4C 

35 

E9 

BD 

EC 

D6 

85 

39 

EB 

E9 

C4 

4C 

F0 

08 

27 

C5 

60 

9C 

22 

A9 

F4 

48 

A9 

6A 

20 

9E 

9F 

20 

7B 

CA 

F0 

22 

3A 

F0 

07 

CA 

EA 

E0 

33 

E2 

E0 

0B 

C3 

4C 

94 

09 

C3 

07 

EE 

C5 

52 

20 

73 

08 

3A 

F0 

56 

4D 

C4 

6A 

66 

10 

CC 

60 

A0 

95 

A9 

29 

45 

99 

4D 

84 

02 

C6 

DC 

A4 

93 

6F 

4D 

C4 

C7 

85 

7B 

2B 

C2 

08 

EA 

28 

60 

90 

C8 

Bl 

88 

60 

8D 

47 

6C 

8D 

05 

20 

A8 

58 

A8 

85 

9D 

45 

41 

97 

57 

48 

A3 

45 

03 

C2 

54 

48 

09 

45 

4E 

CG 

C5 

45 

2A 

D3 

4F 

E4 

53 

C5 

E7 

C5 

00 

6F 

9B 

G2 

F7 

IC 

Cl 

C2 

F9 

C0 

4A 

C4 

Cl 

F0 

55 

4E 

A7 

52 

20 

95 

00 

00 

CB 

<5 
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Merge  128 


This  Commodore  128  utility  allows 
you  to  merge  tzoo  programs  into  a 
single  file — and  resolves  any  line- 
number  conflicts  in  a  unique  way. 


If  you've  been  writing  BASIC  pro- 
grams for  a  while,  it's  quite  possible 
that  you've  found  yourself  reusing 
certain  subroutines  time  and  time 
again.  It's  also  quite  possible  that 
you've  found  yourself  retyping 
those  subroutines  time  and  time 
again.  "Merge  128"  eliminates  all 
of  that  retyping  by  allowing  you  to 
combine  two  BASIC  programs  into 
one.  It's  flexible  enough  to  meet  the 
needs  of  almost  any  programmer, 
and  it  handles  the  problem  of  line- 
number  conflicts  in  a  unique  way. 

Typing  It  In 

Merge  128  is  written  entirely  in  ma- 
chine language,  so  you'll  need  to 
type  it  in  with  the  128  version  of 
COMPUTEI's  "MLX"  machine  lan- 
guage entry  program,  found  else- 
where in  this  issue.  When  you  first 
run  MLX,  it  will  ask  you  for  the 
starting  and  ending  addresses  of 
the  data  you  wish  to  enter.  Here  are 
the  addresses  for  Merge  128: 

starting  address;     I7E2 
Ending  address:      1BF9 

Remember  to  save  a  copy  of 
Merge  128  before  you  exit  MLX,  To 
load  Merge  128,  use  the  BASIC  7.0 
command  BOOT.  Assuming  that 
you  have  saved  your  copy  with  the 
name  MERGE  128,  here  is  the  syn- 
tax to  use  (the  drive  and  device  pa- 
rameters are  needed  only  if  you 
have  a  dual  drive  or  a  disk  drive 
with  a  device  number  other  than  8): 
BOOT"MERGE  128",  Ddrive,  Vdevice 

When  the  READY  prompt  re- 
turns, you  can  activate  Merge  128 
by  pressing  the  Fl  function  key. 
Two  files  are  needed  for  a  merge 
operation:  The  first  should  be  load- 
ed into  memory  before  you  perform 
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the  merge.  The  second  must  be  lo- 
cated on  a  disk.  Merge  128  will  read 
the  second  file  from  disk,  merging  it 
with  the  program  in  memory.  When 
the  process  is  complete,  you  can 
save  the  merged  program  as  usual. 
When  you  press  Fl,  Merge  128 
prints  the  first  part  of  the  merge 
command  on  the  screen.  Here  is  the 
full  syntax  for  the  command: 

MERGE  "filename",  Ddrive,  Udevice, 
Lliite 

Everything  up  to  and  including 
the  first  quotation  mark  is  printed 
for  you  in  advance.  Everything  fol- 
lowing the  second  quotation  mark 
is  an  optional  parameter  that  may 
be  ignored  unless  you  require  it.  If 
you  don't  use  any  of  the  options, 
the  second  quotation  mark  may  be 
ignored,  too.  To  enter  the  com- 
mand, press  RETURN:  Merging 
will  begin.  If  you  change  your  mind 
and  decide  not  to  perform  the  com- 
mand, press  SHIFT-RETURN. 

The  filename  parameter  is,  of 
course,  the  name  of  the  file  that  you 
want  to  merge.  It  will  be  merged 
with  the  program  currently  in 
memory.  The  filename  must  be  a 
legal  Commodore  name,  no  longer 
than  16  characters. 

The  drive  parameter  is  needed 
only  if  you  own  a  dual  disk  drive. 
This  option  accepts  only  the  values 
of  0  and  1  (enter  DO  or  Dl).  Since 
the  Commodore  1541  and  1571 
drives  are  always  drive  number  0, 
this  parameter  defaults  to  0, 

The  device  parameter  accepts 
any  value  in  the  range  of  8-30.  This 
option  is  useful  if  you  have  more 
than  one  single  drive.  For  instance, 
U9  lets  you  access  a  drive  that  is 
device  9.  The  default  for  this  option 
is  8. 

The  line  parameter  is  explained 
in  the  next  section.  If  you  wish  to 
change  any  of  the  default  values  for 
optional  parameters,  see  "Chang- 
ing the  Defaults"  at  the  end  of  this 
article.  It's  important  that  you  enter 
optional  parameters  in  the  order 


indicated.  Each  option  must  include 
a  comma  and  letter  code  (D,  U,  or  L) 
and  a  legal  accompanying  value.  If 
you  don't  need  an  option,  omit 
both  the  comma  and  the  letter  code. 

The  Effects  Of  Merging 

Because  BASIC  expects  each  pro- 
gram line  number  to  have  a  unique 
value,  line  numbers  are  of  foremost 
concern  in  merging.  If  the  programs 
have  two  lines  with  the  same  num- 
ber, a  merge  operation  must  decide 
what  to  do  with  the  duplicate  line. 
Some  merge  utilities  ignore  line- 
number  conflicts  or  delete  lines 
with  duplicate  numbers.  Both  of 
those  strategies  have  disadvan- 
tages, since  you  may  garble  the  pro- 
gram or  lose  lines  unexpectedly. 
Merge  128  handles  line-number 
conflicts  by  renumbering  the  entire 
appended  file  with  a  line-number 
increment  of  1. 

Before  it  merges  anything. 
Merge  128  determines  the  value  of 
the  last  line  in  the  current  program 
(the  program  in  memory).  It  adds 
this  value  to  the  default  increment, 
and  the  result  is  used  as  the  first  line 
number  for  lines  from  the  merged 
file.  (If  there  isn't  any  program  in 
memory,  this  value  is  set  to  0.) 

Merge  128  calls  the  RENUM- 
BER routine  of  BASIC  7,0  to  renum- 
ber the  merged  file,  This 
renumbering  differs  in  one  respect 
from  a  RENUMBER  in  direct  mode: 
It  changes  only  those  internal  refer- 
ences that  can  be  equated  to  lines 
within  the  merged  file.  If  the  merged 
file  contains  an  unresolved  refer- 
ence (for  instance,  a  GOTO  com- 
mand directed  to  a  line  not 
contained  in  the  file)  the  offending 
reference  is  highlighted  in  reverse 
and  a  bell  will  sound  when  you  list 
the  program. 

Renumbering  can  take  a  while 
for  large  files.  To  indicate  that  the 
program  is  working.  Merge  128 
prints  periods  on  the  screen  while 
renumbering  is  in  progress. 
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Line  Option 

The  line  parameter  in  the  MERGE 
command  lets  you  specify  the  ini- 
tial line  number  of  the  merge  file. 
Supply  any  legal  line  number  after 
the  L  letter  code.  For  instance, 
LI 000  begins  numbering  at  line 
1000.  If  the  supplied  value  is  larger 
than  the  last  line  number  in  the 
current  program,  renumbering  be- 
gins with  the  number  you  supply. 
If  you  supply  a  line  number 
that's  smaller  than  the  last  line  in 
the  current  program.  Merge  128 
merges  the  new  file  in  insert  mode. 
This  mode  lets  you  insert  the  lines 
from  a  merged  file  somewhere  in 
the  middle  of  the  existing  program. 
Insertion  begins  at  the  numerically 
correct  position  and  continues  until 
the  entire  merge  file  has  been  pro- 
cessed. The  remainder  of  the  origi- 
nal program  is  then  renumbered  as 
if  it  were  part  of  the  merged  file.  If 
the  renumbered  portion  of  the  pro- 
gram references  a  line  number  that 
now  precedes  the  merged  file,  an 
error  is  flagged  when  you  list  the 
program;  this  is  a  harmless  error, 
which  you  can  ignore.  If  the  first 
block  originally  referenced  a  line 
contained  in  the  renumbered  por- 
tion, then  it  will  probably  be  cor- 
rupted— but  no  error  is  recognized 
by  the  RENUMBER  routine.  Thus, 
you  should  use  care  when  inserting 
text.  Insertion  is  a  powerful,  but 
potentially  confusing,  operation. 

Errors  And  Error  Traps 

To  determine  whether  errors  oc- 
curred, you  should  always  list  the 
entire  program  after  merging.  Any 
line  that  contains  an  error  will  show 
up  with  a  reverse-video  error  flag. 
This  flag  must  be  removed  before 
the  program  can  run.  You  can  re- 
move the  flag  by  editing  the  line  in 
any  way;  Correct  the  reference  or 
simply  press  RETURN  over  the 
line.  (If  any  line  contains  more  than 
160  characters — an  unusual  situa- 
tion— the  128's  function  keys  and 
SHIFT-RETURN  become  inactive; 
press  RUN/STOP-RESTORE  to  re- 
set the  keyboard.) 

Two  error  conditions  will 
cause  Merge  128  to  abort  operation: 
a  merge  operation  that  creates  a  file 
too  big  to  fit  in  memory,  or  a  re- 
number operation  that  creates  an 
illegal  line  number  or  line  refer- 
ence. In  either  case,   Merge   128 


prints  an  error  message  and  returns 

196A: 

A6 

62 

C8 

D0 

01 

E3 

86 

62 

C9 

you  to  direct  mode  without  harm- 
ing the  current  program. 

1972: 
197A: 
1982: 

84 
D0 

A5 

61 
DD 
18 

C4 
A4 
85 

AE 
19 
2D 

D0 
84 
85 

El 
2E 
AE 

E4 
84 
AO 

AF 
AF 
00 

4A 
48 
39 

198A: 

ac 

00 

FF 

20 

CF 

FF 

24 

90 

5C 

Changing  The  Defaults 

It's  easy  to  alter  Merge  128  for  dif- 
ferent default  values.  To  do  this. 

1992: 
199A: 
19A2: 
19AA: 

70 
41 
FE 
D0 

ID 
D0 
38 
02 

8D 
09 
80 
E6 

01 
G6 
0C 

AF 

FF 
42 
C6 
4C 

91 
D0 
41 
83 

AE 
05 
E6 
19 

A5 
85 
AE 
18 

4F 
14 
F0 
6C 

install  Merge  128 

as  usual.  You 

can 

19B2: 

08 

A4 

AF 

A6 

AE 

DO 

01 

88 

B5 

now    change    the    default    device 
number,  drive  number,  or  line  in- 

19BA! 
19C2, 
19CA: 

CA 
20 
30 

28 
CI 
ID 

90 
IB 
20 

04 
20 
7D 

A6 
01 
FF 

18 
IB 
00 

A4 
24 
3F 

19 

FE 
46 

A6 
96 
31 

crement 

value  by  POKEing  new 

19D2 

49 

4C 

45 

20 

54 

4F 

4F 

20 

06 

values  into  the  following 

locations: 

19DA: 
19E2 

4C 
52 

41 

4F 

52 
52 

47 
00 

45 
4C 

20 
E2 

45 
17 

52 
A6 

C9 

IF 

Location 

Contents 

19EA 

AE 

A4 

AF 

20 

70 

FF 

IB 

4A 

02 

Device  number    S18C5  (6341> 

numeric 

value 

character 

19F2 
19FA: 

4E 
47 

55 
20 

40 
00 

42 
AD 

45 
00 

52 
03 

49 
85 

4E 
80 

C3 
4B 

Drive  number      SI  880  (6272) 

iA02 
1A0A: 

AD 
8D 

01 
15 

03 
03 

85 

A9 

81 
62 

78 
8D 

A9 
14 

lA 
03 

51 
B9 

Increment 

S1A38  (6712) 

code 
numeric 

1A12 
lAlA- 

58 
11 

80 
12 

03 
86 

FF 
AE 

8E 
84 

10 
AF 

12 
36 

ac 

FA 

9B 
02 

value 

1A22 

84 

FB 

A9 

IB 

80 

01 

03 

A9 

9E 

Use  this  command  to  save 
modified  version  of  the  utility: 

the 

1A2A: 

1A32 

1A3A. 

09 
11 
72 

80 
84 
11 

00 
50 
20 

03 
84 
87 

A0 
5D 
AF 

00 
A9 
A0 

ac 

01 
00 

73 
8D 
4C 

08 
05 
B4 

BSAVE7< 

lename",  Dd 

rive 

#,  Vdevicett 

/ 

1A42 

68 

SB 

AS 

81 

80 

01 

03 

A5 

6A 

P(6144)  TO  P(7147) 

1A4A 

80 

80 

00 

03 

78 

A9 

FA 

3D 

40 

1A52 

15 

03 

A9 

65 

80 

14 

03 

58 

78 

Merge 

Please  refe 
before  ent 

128 

1A5A- 

20 

87 

AF 

A5 

FE 

4C 

E4 

17 

DA 

rto 
3ring 

the  "MIX"  article  in  this  issue 
the  foilowing  program. 

1A62 
1A6A 
1A72: 

A5 
FF 
20 

82 

E6 
80 

D0 
82 
03 

05 
4C 
20 

A9 
65 
22 

2E 
FA 
80 

20 
A2 
A6 

D2 
00 
63 

8D 
C9 
31 

17E2:A9 

80 

20    70 

IB 

A6 

FE    10 

92 

1A7A- 

F0 

0B 

E0 

90 

F0 

07 

46 

64 

A3 

17EA:03 

4C 

03    40 

4C 

3F 

40    12 

lie 

1AS2 

66 

65 

E8 

DO 

F5 

20 

36 

03 

AD 

17F2:O0 

07 

IB    58 

53 

59 

53    36 

A8 

1A8A 

A6 

64 

A4 

65 

60 

A2 

00 

20 

C3 

17FA:31 

34 

32    0D 

BD 

01 

FF    AD 

04 

1A92 

80 

03 

F0 

48 

C9 

2C 

D0 

48 

53 

1302:02 

IC 

A8    F0 

25 

A0 

01    Bl 

nn 

1A9A 

20 

80 

03 

09 

44 

F0 

15 

C9 

D5 
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F0 

14    A0 

03 

Bl 

20    99 

6C 

1AA2 

4C 

F0 

2E 

09 

55 

D0 

39 

A6 

A2 
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00 

88    10 

F8 

A5 

FA    35 

AB 

lAAA 

FC 

20 

C6 

lA 

84 

FC 

48 

63 

F0 

181A:2D 

A5 

FB    85 

2E 

00 

E6    A4 

49 

1AB2 

F0 

2A 

00 

E0 

20 

C6 

lA 

C0 

23 

1822:FD 

A5 

FC    18 

6D 

33 

lA    90 

EC 

lABA 

32 

BO 

28 

48 

98 

69 

30 

80 

16 

182A:01 

C8 

85    16 

84 

17 

A9    80 

73 

1AC2 

00 

11 

90 

EB 

E0 

00 

00 

18 

CC 
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Apple's  Built-in 
Music  Program 


Put  music  into  your  Applesoft  pro- 
grams the  easy  way:  Apple's  own 
built-in  music  subroutine  features  50 
preset  pitches,  a  choice  of  five  timbres 
(tone  colors),  and  a  wide  range  of  note 
durations — and  you  can  use  it  from 
DOS  3.3  or  ProDOS. 


Unlike  some  other  popular  comput- 
ers, the  Apple  II  series  has  no  built- 
in  firmware  for  generating  musical 
tones.  If  you  want  music  in  your 
programs,  you  must  write  or  other- 
wise supply  your  own  machine  lan- 
guage music  subroutine.  Unless, 
that  is,  you  know  how  to  use  Ap- 
ple's own  music  subroutine.  All 
you  need  is  your  DOS  3.3  System 
Master  disk.  Insert  the  master  disk 
in  drive  1  and  boot  the  system. 
Type  FP,  then  enter  this  program: 

70  FOR  I  =  7iS  TO  777:  READ  X 
:  POKE  I,X:  NEXT  :  REM  INS 
TALL  MUSIC  SWITCH 
80  DATA  173,128,192,32,23,215 

, 173,129, 192,96 
90  POKE  765,2:  REM  SET  TIMBRE 
100  FOR  I  =  1  TO  5:  EDSUB  140 

t  NEXT 
110  POKE  765,32:  REM  CHANGE  T 

I  MERE 
120  FOR  I  =  1  TO  9:  GOSUB  140 

:  NEXT 
130  END 
140  READ  DUR:  POKE  766, OUR:  R 

EM  DURATION 
150  READ  PITCH:  POKE  767,PITC 

H:  REM  PITCH 
160  CALL  768:  REM  CALL  MUSIC 

SWITCH 
170  RETURN 
180  DATA  96,27,96,2'?,  96,25,96 

, 13,240,20 


Mike  Miyake 


190  DATA  24,5,24,6,48,8,48,5, 
52,6,52,3,52,5,52,1, 130,3 
200  REM  DUELING  PLANETS 
210  REM 

220  REM  DURATION  AND  PITCH 
230  REM  ALTERNATE  IN  DATA 

Save  the  program,  then  run  it 
and  sit  back  to  listen.  Where  did  all 
this  music  come  from?  And  why  did 
you  have  to  use  DOS  3.3?  The  music 
subroutine  is  written  by  Gary  Shan- 
non and  is  part  of  Programmer's  Aid 
#1,  which  makes  up  part  of  the 
INTBASIC  file.  Since  ProDOS 
doesn't  support  Integer  BASIC, 
you've  got  to  have  DOS  3.3. 

Lines  70-80  in  the  example 
program  install  a  short  routine  that 
calls  the  music  subroutine  in  Inte- 
ger BASIC — let's  call  the  music 
routine  MUSIC  SWITCH— and  re- 
turns to  Applesoft  BASIC  without 
wiping  out  your  Applesoft  pro- 
gram. For  those  interested  in  as- 
sembly language,  the  example 
program's  ML  routine  consists  of 
only  four  instructions: 

LDA  $C080  ;make  Integer  BASIC  visible 
JSR  $D717  ;call  the  MUSIC  subroutine 
LDA   $C081     ;make  Applesoft  BASIC 

visible 
RTS  ;retum  to  Applesoft 

How  To  Use  The 
Music  Subroutine 

Here's  the  procedure  for  using  the 
music  subroutine  from  Applesoft 
BASIC. 

1.  From  Applesoft,  install  MUSIC 
SWITCH  at  any  location  except  lo- 
cations 765-767. 


2.  POKE  values  for  timbre,  dura- 
tion, and  pitch  into  the  following 
locations: 


Value 


Location 


timbre 

765 

duration 

766 

pitch 

767 

For  instance,  if  T  represents  the 
timbre  value,  the  statement  POKE 
765,  T  sets  the  timbre  for  the  music 
routine.  The  pitches  are  numbered 
from  lowest  to  highest  in  the  range 
1-50.  These  values  form  a  chromat- 
ic scale  of  some  four  octaves  with 
pitch  20  being  approximately  mid- 
dle C,  The  figure  accompanying 
this  article  contains  more  infor- 
mation about  pitch. 

Durations  are  numbered  from 
shortest  to  longest  in  the  range 
1-255.  Metronome  settings  may  be 
approximated  as  MM  =  INT(10200/ 
MM)  and  should  be  no  slower  than 
40  beats  per  minute  (MM  =  40),  (In 
this  example,  MM  stands  for  Mael- 
zel's  metronome.) 

Timbres  are  numbered  2,  8,  16, 
32,  and  64.  They  do  not  sound 
greatly  different.  Some  of  the  low- 
est and  highest  pitches  will  not 
sound  true  in  combination  with 
some  timbres.  However,  timbre  32 
may  be  used  with  any  pitch. 
3.  Once  you've  set  the  pitch,  dura- 
tion, and  timbre,  call  MUSIC 
SWITCH.  Note  that  you  need  not 
POKE  all  three  values  (timbre,  du- 
ration, and  pitch)  before  each  CALL 
to  MUSIC  SWITCH  unless  you 
wish  to  change  all  the  values. 
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Easy  Installation 

Since  the  music  subroutine  is  part 
of  Integer  BASIC,  does  this  mean 
you  must  load  the  entire  huge  INT- 
BASIC  file  just  to  use  it?  And,  since 
ProDOS  doesn't  support  Integer 
BASIC,  does  that  mean  you  can't 
use  the  music  subroutine  under 
ProDOS?  Fortunately,  both  ques- 
tions can  be  answered  with  no.  Un- 
der DOS  3.3,  you  can  save  and  load 
the  music  subroutine  as  a  two- 
sector  file. 

To  save  the  music  routine  as  a 
separate  file,  insert  a  disk  in  the 
drive  and  enter  these  lines,  pressing 
RETURN  at  the  end  of  each  line: 

INT 

BSAVE  MUSIC,A$D717,L$ES 

The  first  statement  activates 
Integer  BASIC  and  the  second 
BSAVEs  the  music  routine  to  disk. 
To  load  the  music  routine,  your 
program  must  contain  the  follow- 
ing statements: 

20  A  =  PEEK  (  -  16235)  +  PEEK 
(  -  162551:  REM  ENABLE  LO 

AD  INTO  HIGH  RAM 
3(3  PRINT  CHRt  '.4)"BLaAD  MUSIC 
4£I  A  =  PEEK  (  -  lti254):  REM  N 

OW  WRnE-PROTECf  MUSIC 

ProDOS  Music 

To  use  the  music  routine  under  Pro- 
DOS,  you  must  first  relocate  it  to 
run  at  a  different  location.  The  re- 
sulting program  can  also  run  under 
DOS  3.3.  Here's  how  to  relocate  the 
music  routine  with  the  code  reloca- 
tion program  from  Programmer's 
Aid  #1.  Enter  these  two  commands 
to  activate  Integer  BASIC  and  enter 
the  Apple  II's  built-in  machine  lan- 
guage monitor  (again,  don't  forget 
to  press  RETURN  at  the  end  of  each 
of  these  lines). 

BMT 
CALL  -151 

From  the  monitor,  enter  this 
command  to  set  up  the  code  reloca- 
tion program: 

•D4D5G 

Enter  this  command  to  define 
the  block  to  be  relocated.  In  this 
statement,  the  characters  {CTRL-Y} 
indicate  that  you  should  hold  down 
the  CTRL  key  and  press  the  Y  key. 
Do  not  type  the  curly  brace  charac- 
ters {{}).  Don't  forget  to  type  the 
asterisk  (*)  after  pressing  CTRL-Y. 

•9500  <D71 7.D7FB  { CTRL-Y)  • 


Pitch  Numbers 

c 

C# 

D 

e1,/d# 

E 

F 

F# 

G 

At,/G# 

A 

Bt, 

B 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

b  =  flat  (one  pitch  below) 


#  "=  sharp  (one  pitch  above) 


Enter  this  command  to  relocate  the  music  routine  to  location  $9500. 
Again,  press  CTRL-Y  where  you  see  {CTRL-Y}. 
•9500<D717.D7FB  {CTRL-Y} 

Enter  this  command  to  move  the  music  routine's  data  table  into  place. 
•957F<D796.D7FBM 

Finally,  this  command  saves  the  complete  music  routine  with  the 
filename  MUSIC.RELOC. 
•BSAVE  MUSIC.RELOC,A$9500,LSE5 

At  this  point,  you  can  reboot  the  computer  and  use  the  ProDOS 
Convert  program  to  convert  the  music  routine  for  ProDOS.  While  you're 
at  it,  you  might  as  well  convert  the  example  program,  too.  Whether  you 
use  ProDOS  or  DOS  3.3,  the  relocated  version  of  the  music  routine  must 
be  protected  by  a  HIMEM:  statement  before  it's  loaded.  To  use  the 
example  program  under  ProDOS,  replace  line  70  with  this  line: 

70    HIMEM:     37120 

To  use  the  relocated  music  routine  under  DOS  3.3,  replace  lines  70, 

80,  and  160  in  the  example  program  with  these  lines: 

70  HIHEM:  38144 

80  PRINT  CNR*  (4)"BLaAD  MUSIC  .RELOC" 

160  CALL  3B144 

Note  that  the  relocated  routine  (MUSIC.RELOC)  can  be  BLOADed 
normally  and  CALLed  directly. 

Diatonic  scales  ascend  in  a  sequence  of  notes  at  half-tone  (one  pitch)  or 

whole-tone  (two  pitches)  intervals.  Here's  the  sequence  for  a  major  scale: 

whole-whole-half-whole-whole-wholc-half 

And  here's  the  sequence  for  a  minor  scale: 

whole-half-whole-whole-half-whole-whole 

Thus,  you  can  find  the  pitch  numbers  for,  say,  a  C-major  scale,  even  if 
you  don't  know  the  note  names.  Start  with  the  key  note  C: 


Pitch  numbers: 
Note  names: 
Tone  intervals: 
Offset  from  C; 


8  10  12 

C  D  E 

whole    whole 

0  2  4 


13          15          17          19  20 

F           G           A           B  C 

half     whole  whole  whole  half 

S             7             9           11  12 


Rhythm 

Rhythm  is  quite  easy  to  implement  with  the  music  routine.  Here  are  the 
steps  to  follow. 

1.  Select  the  desired  tempo  in  beats  per  minute.  For  instance,  MM  =100. 

2.  The  base  note  duration  will  equal  10200/MM  (102  in  this  case). 

3.  Divide  or  multiply  this  figure  to  find  values  for  divisions  of  the  beat. 
For  instance,  two  notes  per  beat  equals  a  duration  of  102/2  or  51  per 
note.  A  note  two  beats  long  equals  102  *  2  or  204,  and  so  forth. 

In  many  songs,  slight  deviations  from  exact  division  are  inevitable. 
That's  not  always  bad.  A  little  variance  from  exact  mathematical  relation- 
ships can  help  keep  your  tunes  from  sounding  too  stiff  and  mechanical.© 
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North  Of  The  Border 


Jim  Butterfield,  Associate  Editor 


Graphics  can't  appear  outside  the 
screen  border  on  a  Commodore  64 — 
or  can  they?  This  intriguing  demon- 
stration shows  you  how  to  display  text 
and  other  shapes  in  a  screen  area 
that's  normally  blank. 


You  can  do  wonderful  things  on  the 
screen  of  your  Commodore  64,  but 
graphics  output  is  always  located 
inside  the  screen  border.  This  arti- 
cle describes  a  technique  for  dis- 
playing graphics  outside  the  usual 
screen  area  of  the  64.  The  mechan- 
ics are  a  bit  complicated,  and  you 
may  not  care  to  learn  all  the  techni- 
cal details.  But  it's  fascinating  to 
see,  and  the  demonstration  program 
takes  only  a  short  time  to  type  in. 

I  first  saw  this  technique  dem- 
onstrated in  West  Germany,  where 
it  seems  to  have  been  developed 
independently  by  several  persons, 
including  Holger  Gehrmann  and 
Holger  Krekel.  The  West  German 
programs  are  geared  toward  a  Eu- 
ropean screen  format,  which  differs 
from  the  format  used  in  North 
America.  We'll  enter  a  fresh  pro- 
gram using  the  same  principles.  It 
will  put  some  machine  language  in 
the  memory  area  above  location 
49152  ($C000);  if  you  have  any 
special  programs  that  reside  in  that 
area,  remove  them  now  to  avoid 
conflicts. 

Type  in  and  save  the  program, 
then  run  it.  If  the  program  halts  at 
line  190,  check  for  an  error  in  the 
DATA  statements  that  follow. 
When  the  program  works,  you'll 
see  a  brief  request  to  wait.  Watch 
the  top  of  the  screen:  In  a  few  mo- 
ments, a  familiar  word  appears 
above  the  normal  screen  boundary. 
Follow  the  screen  prompts  to  see 


additional  text  printed  on  the 
screen.  As  the  screen  scrolls,  you'll 
see  text  disappear  as  it  hits  the  top 
border.  The  extra  text,  however,  sits 
calmly  above  the  border,  not  dis- 
turbed in  the  least  by  this  activity. 
By  this  time,  the  program  has 
stopped.  List  it  if  you  like:  The  spe- 
cial text  remains  undisturbed.  It 
seems  we  have  planted  something 
permanent  in  a  place  where  graphics 
shouldn't  appear. 

Where  Does  It 
Come  From? 

Experienced  64  programmers  may 
have  guessed  already  what  the  ex- 
tra text  is  made  of.  If  you're  not 
sure,  type  this  line  as  a  direct  state- 
ment and  press  RETURN: 

FOR  J  =  28  TO  238:  POKE  53249,J:  POKE 
53251,J:  POKE  53253,J;  NEXT  J 

The  text  slides  happily  to  the 
bottom  border  area  and  takes  up 
permanent  residence.  Again,  screen 
color  changes,  listings,  or  similar 
activities  have  no  effect  on  these 
characters.  The  way  that  they  move 
should  tip  you  off  to  their  origin — 
they  are  sprites,  not  conventional 
characters.  If  you  like,  slide  the 
message  back  to  the  top  of  the 
screen  by  entering  this  line  as  a 
direct  statement: 

FOR  J  =  238  TO  28  STEP  -1:  POKE 
53249,J:  POKE  5325.1,J;  POKE  53253J: 
NEXT] 

They're  sprites  all  right;  loca- 
tions 53249,  53251,  and  53253  are 
vertical  position  registers  for  sprites 
0-2.  But  how  can  they  appear  out- 
side the  screen  border? 

Here's  another  hint.  It  may  not 
be  too  helpful,  but  it  does  demon- 
strate a  curious  effect  of  this  tech- 
nique. Try  changing  the  border 
color  with  a  direct-mode  statement 


like  POKE  53280,5.  This  gives  you 
a  nice  green  border,  but  with  a  no- 
table difference.  The  border  has  no 
top  or  bottom. 

Sprite  Liberation 

These  two  hints  tell  you  what  is 
being  done,  but  not  how  it's  done. 
We  have  "disappeared"  the  top  and 
bottom  borders  of  the  screen,  creat- 
ing a  condition  where  sprites  are 
free  to  roam  into  the  newly  liberat- 
ed territory.  As  you've  seen  al- 
ready, the  sprites  can  be  moved 
anywhere  within  the  normal  screen 
boundaries,  as  well. 

The  message  is  actually  buUt 
into  three  sprites;  by  modifying  line 
100  of  the  program,  you  can  replace 
those  characters  with  any  nine  char- 
acters of  your  choice.  The  sprites 
don't  have  to  look  like  characters,  of 
course;  if  you  wish  to  replace  them 
with  three  red  dragons,  or  whatever, 
you're  free  to  do  so. 

Spirt-Screen  Tricks 

This  program  uses  a  variation  of  the 
split-screen  technique  which  is  ex- 
plained in  detail  in  COMPUTEl's 
First  Book  of  Commodore  64.  The 
split  isn't  visible,  but  it  makes  the 
top  and  bottom  borders  vanish. 
Here's  how. 

First,  keep  in  mind  that  the 
64's  screen  is  normally  25  character 
rows  high,  but  you  can  change  it  to 
display  24  rows  at  will.  When  the 
video  chip  displays  the  screen,  it 
turns  on  the  bottom  border  when  it 
reaches  the  end  of  row  25  (if  you 
have  a  25-row  screen)  or  when  it 
reaches  the  end  of  row  24  (in  the 
case  of  a  24-row  screen).  The  bor- 
der doesn't  need  to  be  switched 
back  on  for  the  top  of  the  screen;  it 
simply  stays  on  as  the  monitor's 
electron  gun  "wraps  around"  from 
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the  bottom  of  the  screen  to  the  top. 

The  border  is  switched  off  again 
when  we  get  to  the  beginning  of  the 
first  row  of  text. 

Suppose  that  we  write  a  split- 
screen  program  that  changes  the 
screen  to  a  24-row  configuration 
while  the  video  chip  is  drawing  the 
twenty-fifth  row  of  the  screen. 
Somewhere  near  the  top  of  the 
screen,  we'll  switch  it  back,  of 
course.  When  the  electron  beam 
reaches  the  end  of  row  24,  it's  in  25- 
row  mode,  not  24-row  mode,  so  the 
border  switch  doesn't  happen 
there.  And  when  the  beam  gets  to 
the  end  of  row  25,  the  computer  is 
back  in  24-row  mode,  so  the  border 
switch  can't  happen  there,  either. 
Since  we  never  allow  the  border 
change  to  take  place,  the  border 
effectively  disappears. 

This  program  works  exactly 
the  same  on  a  Commodore  128 
running  in  64  mode,  of  course.  The 
same  principles  can  be  used  to 
sneak  graphics  outside  the  border 
in  128  mode,  but  the  program 
would  need  to  be  modified.  The 
interrupt  routines  in  this  version  are 
tailor-made  for  the  64. 


It's  interesting  to  tamper  with 
the  video  innards  of  the  video  chip. 
Putting  sprites  outside  the  normal 
display  zone  may  be  more  a  curios- 
ity than  anything  else,  but  this  pro- 
gram demonstrates  yet  another  of 
the  Commodore  64's  amazing 
capabilities. 

North  Of  The  Border 

For  Instruclions  on  entering  this  program, 
please  refer  to  "COMPUTEI's  Guide  to  Typing 
In  Programs"  elsewtiere  In  Jtils  issue. 


A$  =  "COMPUTEn  ":IF  LEN(A 

$)<>9  THEN  STOP 

POKE  53280,0 

POKE  33281,0 

PRINT  CHR5(5) ;CHR$(147) 

;"**  NORTH  OF  THE  BORDE 

R  **" 

PRINT  "PLEASE  WAIT  " 

POKE  53265,27 

FOR  J=49152  TO  49188: RE 

AD  X 

T=T+X:P0KE  J,X 

NEXT  J 

IF  T<>4203  THEN  STOP 

DATA  169,1,141,25,208,1 

62,248,160,27,173,18,20 

8,16,4 

DATA  162,1,160,19,142,1 

8,208,140,17,208,173 

DATA  13,220,41,1,240,3, 

76,49,234,76,188,254 

FOR  J=832  TO  1022:POKE 

ESPACE)J,0:NEXT  J 


RE 

100 

MX 

110 

DB 

120 

ED 

130 

PC 

140 

RJ 

150 

PD 

160 

GR 

170 

KC 

180 

JR 

190 

JF 

200 

CJ 

210 

KM 

220 

HD 

230 

JX 

240 

GD 

300 

EG 

310 

JA 

320 

CC 

330 

JM 

340 

JB 

350 

PR 

360 

BP 

370 

RS 

380 

DX 

390 

BJ 

400 

CR 

410 

PS 

420 

MQ 

430 

OE 

440 

CD 

450 

BP 

460 

KE 

470 

SD 

480 

SH 

490 

BG 

500 

CD 

510 

XJ 

520 

FR 

530 

QP 

540 

FJ 

550 

PP 

560 

GG 

570 

MP 

580 

S=871 

POKE  56333,127 

POKE  783,0:POKE789,192 

POKE  1,51 

FOR  J=l  TO  LEN(A$):X=AS 

C(MID${A$,J) ) 

IF  X>64  THEN  X=X  AND  31 

X=X*8 

FOR  K=0  TO  7:Y=PEEK(X+K 

+5324S) 

POKE  S+K*3,YtNEXT  K 

S=S+1:IF  J=3  OR  J=6  THE 

N  S=S+61 

NEXT  J 

POKE  1,55 

POKE  53274,129 

FOR  J=0  TO  2 

POKE  2040+J,13+J 

POKE  53248+J*2, J*24+80 

POKE  53249+J*2,28 

POKE  53287+J,l 

NEXT  J 

POKE  53269,7 

PRINT 

PRINT  "TO  RESTORE  YOUR 

I  SPACE) MACHINE, " 

PRINT  "(3  SPACES) PRESS 

I  SPACE )< RUN /STOP >  AND  < 

RESTORE)  KEYS" 

PRINT 

PRINT  "PRESS  ANY  KEY  FO 

R  SCROLLING  DEMO" 

GET  A$,A$,A5,AS 

GET    A?tIF   h$=""    GOTQ550 

FOR    J=l    TO    100 

PRINT    "THIS    IS    HNE";J; 

"OF    THE    DEMO" 

NEXT    J  g 


THE  AMAZING 

V€ICE  M  ASTEP„ 


ENTER 

JHE  FINAL 

FRONJIER 

OF 

MAN-TOMACHINE 

COMMUNICATIONS 

There  is  nottiing  else  lil<e 
it,  Voice  Moster  gives 
both  speech  outpot 
and  voice  recognition  with  this  single  hardwore  pfoduct!  Your  voice 
controls  programs,  or  home  appliances,  robots,  and  more  with  spoken 
commands,  Vertxji  response  txicl<  gives  stotus.  vefifies.  or  requests  your 
reply!  Speech  cutput  and  recognition  patterns  are  recorded  in  with  your 
voice.  Of  use  the  voice  of  your  friend,  Ixiss,  teacher,  mother,  even  tt^e 
fomily  pet!  Programming  is  simple  with  new  commands  added  to  BASIC. 
A  music  bonus  progrom  lets  you  write  and  compose  musical  scores 
simply  by  humming  the  tune.  Unlimited  applications  for  fun.  education, 
and  commerdol  use.  i^esign  your  own  programs  for  profit.  Speech  and 
recognition  qugiity  unsurpassed  by  even  the  most  sophisticoted 
machines.  Only  Covox  provides  this  high-tech  nnarvei  at  a  price  less  than 
most  common  periphefols 

The  Covox  Voice  Master  comescomplete  with  ail  hofciworeand  software 
for  only  S89.95.  (Add  ia  shipping  and  handling  for  USA,  S6  Canada,  S10 
overseas.)  Available  tor  Commodore  64/128,  Apple  li,  II+,  lie,  lie,  Atari  800. 
eOOXL  130  XE  Specify  when  ordering.  Visa,  MosterCord  phone  orders 
accepted. 

Call  Of  mtte  tor  fl?f£  Voice  Master  Inlopak 
and  special  comblnatlor}  package  offers, 

COVOX  ilVCDEPT.C! 

676-D  Conger  Street   •   Eugene.  Oregon  97JD2    •   USA 
AfsaCode(503)342-1271   «  Tglen  706Q17(AvAlormUD) 


Public  Domain  &  User  Supported  Software 


NEW  TOP  TEN  FOR  COMMODORE  64 

Hie  64  GOLD  Library  SS.BOlDISK 

G  1D5AHTIST  SKETCHBOOK  drawing  programs 
I  1  106  GREAT  AMERICAN  NOVEUSTSworii 

processing 
n  107  mom  connections  comraunicaiimis 
IJ  103  SPACE  WARS  space  games 
i  i  109  DUNGEONS  &  DRAGONS  tent 

advenlures 
C  110  HOME  ORCHESTRA  instmmenl 

simulation 
I  1 1 1 1JUKE  BOX  prerecorded  songs 
D  112  EINSTEINS  FAVORITES  advanced  main 
IJ  1 13  PONZQS  TUTOR  programming  Irom 

BASIC  to  mactiine 
D  1 14  EL£CTRONIC  SECRETARY  liletiandling 

mililies 
NEW  TOP  TEN  FOR  IBM      S6.0lllOtSK 

PC-SIG  Aullionzed  Dealer 
LI  005  PC-FILE  lit  V4  labels,  lorms,  and  mjre 
C  078  PC-WRITE  V.2165  popular  and  powerful 
'  273  BEST  UTIUTIES  print  spooler.  Iile 

seaicti,  more 
I  ;  274  BEST  GAMES  pjckman.  breakout. 

wi/ard,  more 


NEW  TOP  TEN  FOR  APPLE  SS.OOlDISK 

C  037  FREEVfflfTER  wordprocessor  (Apple 

I  +  needs  paddles} 
n  038  BUSINESS/HOME  MANAGEMENT 

ctiedibook,  calculator,  more 
U  D39  BEST  OF  BUSINESS  general  ledger, 

payroll,  mucti  more 
n  056  BANKn  SYSTEM  clieck  Ijalancer.  wrile 

&  pnni checks 
I  i  067  OMNI  FILE  data  base  with  Insltuctions 
n  064  BEST  OF  EDUCATION  math  dnlls. 

spelling,  typing,  etc, 
D  085  BASIC  MATH  DRILLS  fractions. 

mulliple  choice,  work  problems 
I  i  1 18  GAMES  last  action  space  arcade  games 

D  213  BEST  UTILITIES  diskcat,  Urunch. 

diskctieck,  diskmap.  etc 
NEW  TOP  TEN  FOR  MAC    S9.0aiDISK 
i  1  005  CODE  CRACKING.  FEOff  edit  file 

blocks  in  ASCII  or  hex 
□  006  ResED  and  HeED  edd  menu  bars, 

Icons  and  t  D  numters 
D  007  SWITCHER  edit  multiple  Itftcrosoft 

BASIC  liles 


■  293  ARCADE  GAMES  (color  graphics  reguired)  C'  0J9  COMMUNICATIONS  fled  Bytfer .  MscTep 

O  037  SUDE  SHOW 
n  039  FONTS  Fom  catalog 
rj  045  DESK  ACCESSORIES  Minilindei.  timer 
(~1  062  GAMES  Dungeons  of  doom,  baseball 
[J  067  GAMES  Billiards,  volleyball,  jtiggling 
C  086  BEST  OF  MAC  MacWorld  86 


405  DESKMATE  more  than  a  sidekick 
n  457  GREATEST  ARCADE  the  best  ol  ttie 

best  games 
U  528  NEW  YORK  WORD  sophisticated  word 

processing,  1  o(  2 
P  529  NEW  YORK  WORD  2  dI  2 
[  !  557  P1NBALL  ALLEY  from  simple  lo 

compIeK  pmtjall  games 

Add  S4  stripping  S,  handling  per  order.  CA  residents 
add  65%  sales  tax 

Amount  enclosed  J n  Check  iiVISA  n  MasterCard 

Card  No  

Signature  _ 

Ptione  I 

Name 

Address  _ 
City 


PUBUC  DOMAIN  SOFTWARE  EXCHANGE 
Authonzed  Dealer 

Call  toll  free  800-431-6249 
tn  Calif.  415-952-1994 


.  Eip.  Date . 


.  State . 


.Zip. 


BlACKSHIP 

COMPUTER  SUPPLY 
PO.- Box  883362 
San  Francisco.  CA  94188 


mmcmmm:  ccuMni^iLE 


BLUE  CHIP  PC  PACKAGE  »1 

INCLUDES 

•  512K  Memory 
•1-36aK  disk  brim 

•  6  Expansion  Sl0(J> 
•Swltchable  110/220  Pow.  Supply 

•  Parallel  &  Serial  I/O 
•MS  DOS  i  GW  Basic 

NO  SURCHARGES  On  Cmdlt  Cuncla 
FREE  SHIPPING  In  Continental  USA 
$689 


BLUE  CHrP  PC  PACKAGE  #Z 

Same  aa  #1 

HURES  MONOCHROME  MONITOR 
•75<DO50  Resolution 
NOSUnCHARGESOn  Credit  Cants 
FREE  SHIPPING  In  ConUnental  USA 
$779 


BLUE  CHIP  PC  PACKAGE  W3 

Same  as  A I 

HI-RES  MONOCHROME  MONITOR 
•750X350  ReHlutlon 

+ 
ADDITIONAL  1JBK  MEMORY  BOARD 
NO  SURCHARGES  On  Credit  Carts 
FREE  SHIPPING  m  Continental  USA 
$869 


STT! 
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PC  COMPATIBLE  EXTRAS 

MS  DOS  3.2  &  GW  BASIC $99.95 

BLUE  CHIP  360K  DISK  DRIVE S129.00 

BLUE  CHIP  TTL  GREEN  MONITOR.  . .  .S99.95 

ZUCKERBOARDS  (Made  tn  USA) 

Clock  Calendar 49.95 

25BK  Expansion  Board. . , 79.95 

Mono  Gmpfiica  BD  (Hercules  Comp.) ...  99.95 

Color  Graphics  BD  (CGAl 99.95 

(All  ZUCKERBOARDS  Have  a  2  V»«r  Warninly) 


PANASONIC 

Panasonic  10801  , . . .199 
Panasonic  10911  .  .  .  .259 

Panasonic  10921 349 

Pana»nlc3131 279 

Pannonic  3151 409 

Panasonic  1S92   ....419 
Panasonic  1595    ...539 


OKJDATA 

Okldata120 215 

Okldataiez 249 

Ohldata  1S2+   3E9 

Ohldata  193  4.   559 

OkldSta292E   449 

Okldata293E   S99 


EPSON 

U<86 219 

FXSeE 399 

EX  800 479 

EX  1000 629 

FX288E 569 

LQSOO 519 

LQ  1000 729 

LQ2S00 H49 


STAR  MICRONICS 

NX-10 209 

NL-10 Call 

NP-10 169 

NX-15. 339 

ND-IS    449 

NR.15 539 

Powertype 189 

NB  24/-1J  (24  Wire)  ,  .Call 


SPECIAL 

CANON  A-OO  IS 
PIN  PRINTER 
■  200CPSDran 
■100CPSNLQ 
•34CPSNLO+ 
•Graphics  &  NLQ4.  On 
Same  Page 


PURCHASE 

•Font  Cartfldges 

•  Optional  Sheet  Feeder 

•  Either  Eoson  Or  IBM 

Compatible 
$349 


OKIMATE  20  & 
PLUG  AND  PRRtfT 

Interfacea  Available  For 

AMIGA  •  ATARI  ST  •  IBM  • 

APPLE  24.f2E>  €64/128 

$199 

FREE  SHIPPING  IN 

CONTINENTAL  USA 


mmm^m 


C-64n28  PACKAGE  fr'T 
•NX-10  Printer 

•Xetec  Suoer  Grephlc  Interface 
•2  Eitni  NX-10  Ribbon 
NO  SURCHARGES  On  Credit  Carts 
FREE  SHIPPING  In  Continental  USA 
5279 


C-A*!J2B  PACKAGE  #2 

•Panasonic  lOBOi  Printer 
•Xetec  Super  Graphic  Interlace 
■1  Extra  Ribbon 

NO  SURCHARGES  On  Credit  Cards 
FREE  SHIPPING  In  Contlnonlal  USA 
$279 


C-64/I28  PACKAGE  #3 

•Panasonic  10911  Printer 
•Xetec  Super  Graphic  Interface 
•1  Extra  Rfbbon 

NO  SURCHARGES  On  Credit  Caida 
FREE  SHIPPING  In  Conllnental  USA 
$339 


C-64/128  PACKAGE  #4 

•Selkosha  SP1000VC  Printer 
•Built-in  Graphks  Interface 
NO  SURCHARGES  On  Credit  Cards 
FREE  SHIPPING  In  Continental  USA 
$179 


mAmMfxi^Mj^&mpmmm  p^mimm 


ATARI  PACKAGE  #1 

•  NX-10  Printer 

•  Supre  1150  Iriterface 

•  2  ExttB  Ribbons 

NO  SURCHARGES  On  Credit  Carts 
FREE  SHIPPING  In  Continental  USA 
S269 


ATARI  PACKAGE  (?2 

•Panasonic  10801  Printer 
•Supra  1150  interface 
•  1  Extra  Ribbon 

NO  SURCHARGES  On  Credit  Certs 
FREE  SHIPPING  In  Conllnental  USA 
S269 


ATARI  PACKAGE  #3 

■PanasonJc  10911  Printer 
•Supra  1150  Interface 
•1  Extra  Ribbon 

NO  SURCHARGES  On  Credit  Cards 
FREE  SHIPPING  In  Continental  USA 
$329 


ATARI  PACKAGE  #4 

•Atari  1027  Printer 
•Atariwritar  Plus 

NO  SURCHARGES  On  Credit  Canls 
FREE  SHIPPING  In  Continental  USA 
$129 


SUPBH  COMPUrEn^NiCKAtSES 


ATARI  130XE  PACKAGE 

•Atari  130  XE  CompuieiiHoma  F.ling  Manager 

•Atari  1050  Disk  Drive  •Defender 

•Atari  1027  Printer        •Millipede 

•Atariwriter  Plus  •Paint 

NO  SURCHARGES  On  Credit  Cards 

FREE  SHIPPING  In  Conllnental  USA 

$399 
COMMOOORE  128  PACKAGE  #1 
•Commodore  12B  Computer    'IS?!  Disk  Drive 
NO  SURCHARGES  On  Credit  Cards       ejiaa 
FREE  SHIPPING  In  Conli  nentai  USA     S'WB 


COMMODORE  64C  PACKAGE 

•  Commodore  64C  Computer   •ia02C  Monitor 
•1541C  Disk  Drive  -GEOS 

NO  SURCHARGES  On  Credit  Cards 
FREE  SHIPPING  In  Continental  USA 
PRICE  TOO  LOW  TO  ADVERTISEn 
COMMODORE  128  PACKAGE  #Z 
•Commodore  128  Computer 
•1571  Disk  Drive  $779 

•1902  RGB  Monitor 
NO  SURCHARGES  On  Credit  Carts 
FREE  SHIPPING  In  Continental  USA 


ATARI  104OST  SYSTEM  PACKAGE 

•Including    RGB    or   Monochrome    Monitor, 
Mouse,  Double-Sided  Disk  Drive,  Basic,  TOS  on 
ROM.  and  Built-in  Power  Supply 
•  Full  Manulacturor's  Warranty  Applies 

CALL  FOR  LATESTPrTCE 
ATARI  520ST  SYSTEM  PACKAGE 

•  Including    RGB    or    Monochrome    Monitor, 

House,  Disk  Drive,  Basic,  TOS  on  ROM,  and  RF 

Modulator 

•Full  Manufacturer's  Warranty  Applies 
CALL  FOR  LATEStVrTCE 


AMIGA  SYSTEM  PACKAGE 

•Amiga  Computer 
•Amiga  1080  Monitor 
•512K  Ram  Expander 
•1010  Disk  Drive 

CALL  FOR  LATEST  PRICE 

AVATEX  1200HC  MODEM 

•Heyes-Compatlble 
•External 

•Wortis  With  All  Computere 
S129 


MiSOELLANEOUS  HARDWARE 


COMMODORE  64/128 

Commodore  E4C  +  GEOS Call 

1541C  Disk  Drive  Call 

Commodore  128. ,,,, Call 

1571  Disk  Drive   Call 

1S70  Modem 129 

1351  Mouse 44.95 

1750  Ram  Expander ,,.,,,.,,,,,.  1Q9 

1902  RGB  Monitor 279 

Xetec  Super  Graph  ic ...............  ,  09.95 


ATARI  XE«XL*400«800 

AUri  130  XE   139 

105D  Disk  Drive   135 

P.R.  Connection 82.95 

Animation  Station 49.95 

Atari  XM-301  Modem  39.95 

Supra  1150  Interface Call 

850  Interface  Call 

US  Doubter 49.9B 

Graphic  At  f  nterface 39.95 


ATARI  520ST-1040Sr 

SH  204  20  MEG  Hard  Drive Call 

SF314  DS/DD  Disk  Drive   199 

Supra  20  MEG  Hard  Drive Call 

1040  Dust  Cover Call 

520  Dust  Cover , , Call 


APPLE 

Grapplsr+ 74. 9S 

Grapplor+Wf6K 119.9S 

Serial  Grappler , 74.95 

Mach  11  Joystick   27.95 

Mach  III  Joyitick 34,95 


64  SOFTWARE  *  NEW  LOVtfERi 


BERKLEY 
SOFTWORKS 

GEOS 37,95 

Writer's  Woriishop  .32.95 

Geodex 25.95 

DeskPakI 22.9S 

FontPskI 19.95 

Geopubllah 34.95 

Geolila 34.95 

Geocalc  ........ .34.95 

Geochart  .... 27,95 


ACCESS 

Mach  V-Cart 21 .95 

Leader  Board 24.95 

Tournament  Disk  . .  14.95 
Executive  Disk.  ...14.95 
Robotic  Workshop  .  .Cat^ 

Tenth  Frame 24.95 

Famous Couraes  ..14.95 

MICROPROSE 

See  Atari  J30XE  aseilon 
for  /terns  and  prices, 

COMMODORE  64 


Final  Cartridge  ...  39.95 

Gunship 22.95 

Leather  ijodd  esses  22.95 

Moonmlal 22.95 

Hollywood  Hljinka  .22.95 

Fbntmaaler2 29.95 

Disney  Comic  Strip  23.95 
Disney  Cart  &  Parfy23.95 
WWF  Wresting... '25.95 

Starileetl 26.95 

Elite 22.95 

ThunderfcMopper  .19.95 

UP  Periscope 1 9.95 

Contriver  Mouse  .  .36.95 

The  Pawn 25,95 

Tracker ,  . , .25,95 

SUirgiider 25,95 

Jet 27,95 

Sublogiic  F^tball  .27,95 
Flight  Simulator  11  .33,95 
Subiogic  Baseball  .33,95 

Prinlmsster .21,95 

An  Gallery  1  Or  2  ,16,95 

Superacript  64 32 .95 

Superbase  64  46,95 

Ace  0(  Aces 16,05 

Kill  Until  Dead 16,95 

Hardball 16,95 

Fight  Night   16,95 

PSl  Trading  Co.   . . .  18.95 

PrmiShop 28.95 

P.S.  Companion  .  .  .22.95 


Graph.  Lib  1,2  or  3  16.95 

Rat 19.95 

Parallax   19.95 

Uridium 19.95 

UchlMata 19.95 

Wizard's  Crown  ...27.95 

Phantasieil 27.95 

Hoadwar2000 27.95 

Warahip 39. 9S 

Wargame  Constr. ..  20.95 
ShartOt Spring  ..27.95 
War  in  S.  Pacitic   ..39.95 

Rings  01  ZUlin 27.95 

2  On  2  Basketball  .22.95 
Champ  Baseball   .,22,95 

GFL  Football 22,95 

Trensformera 22,95 

Gamemaker ......  25,95 

Tag  Team  Wrest  ...  22.95 
Sreakthru 22.95 


BATTERIES 
INCLUDED 

Bi-80Card 49.95 

HomePsi<    14.95 

Consultant. ..... .34.95 

Paporciip/Speli   ...27.9S 


ACABUS  64 

Charlpak 25.95 

Cad-Ak 25.95 

Povrerplan 25.95 

Super  C  Compiler  ,39,95 
Super  Pascal  .....  39,95 
Basic  Compiler  , ,  ,25.95 

Ftorth  25.95 

Geos  inside  &  Out ,  15,95 
Personal  Portfolio  .25,95 
Xper  System 39,95 

SPRINGBOARD 

Nevramom 30.95      £!iP?23°''S    ■■IMI 

CertKlcate  Maker . .  30.95      £"fi*i?.L-  ■  iW  ;  ' "  ?]  if 
Graphics  Expander  21 .95      <^f  •  '*»'«'■  "-lb  1  •  -21  -95 


TIMEWORKS 

Business  Sytems  ,39,95 
Wortwriler/Speil  .  .32,95 
SwirtoaFc/Sideways  25.95 
Data  Manager  II . . .  25.95 

Sylvia  Porter 32.95 

Evelyn  Wood 25.95 

sideways  ,,.,.,.  ,19,95 
Partner  54  ......  .39.95 

Swiftax'ae 32,95 


Archon 10.95 

AfChonll 10.96 

Rn.  Cookbook 10.95 

Heart  01  Africa  ...10.95 
Mall  Ort.  Monsters  10.95 

MindMlrrer 10.95 

Movie  Maker 10.95 

Mule 10.95 

Mualc  Conslructlon10.95 

One  On  One 10.95 

F^inbaii  Constr^ctlon10.95 
RacinqOestructiCft  10.95 
Seven  cities  Of  Gold  1 0,95 

Skyfoi ,.10.95 

Super  Bould  Dash  .  10.95 


>%      SINCE  1982      ^  .       . 

'nompat(/tbuLt^ 

P.O.  Box  17882,  Milwaukee,  WI  S32I7 

ORDER  UNES  OPEN 

Mon.-Fri.  11  a.m.  ■  7  p.m.  CSf  ©  Sat.  12  p.m.  -  5  p.m.  CST 

To  Order  Call  Toll  Free 

800-558-0003 

For  Technical  Info,  Order 
Inquiries,  or  for  Wise.  Orders 

414-357-8181 

TELEX  NUMBER  9102406440 


ELECTRONIC  ARTS 

Touchdown  Foott]al]10,95 
Ultimate Wizart.  ..10.95 
Adv.  Construction  .25,95 
America's  Cup  .  ,  .  .22,95 

AreticFoi   22,95 

Autoduei 31,95 

Bart's  Tale 25.95 

Bard's  Tale  11 25.95 

Chickamauga .  . . .  .23.95 

Battlelmnt 25.95 

Carriers  At  War  ...31.95 
iurope  Ablaze  . . .  .31.95 
Lorts  Of  Conqeust  22.95 
Mart^ie  Madness  .  .20.95 


Moebius 25.95 

Murder  Party 22.95 

Orge 25.95 

Pegasus 23.95 

Reach  ForTlie  StarB30.&5 
Road  To  Moscow  .  .25.95 

Robot  Rascals 25.95 

Russia  ,,.,,,,.,.  25.95 

Scrabble 22,95 

Chesamaster  2000  25,95 

Ultima  1 25.95 

Ultima  3 31.95 

Ultima  4 3S.95 

World  Tour  l3olt...  23.95 


EPYX 


Oestroyer 22.95 

Fast  Load 22.95 

Movie  Monster 22.95 

Champ  Wrestling.  .22.95 

World  Games 22.95 

Winter  Games 22.95 

Summer  Games . .  .  14.95 
Apshal  Trilogy  ....  14.95 
Vbrpal  Utility 14.95 


Multlplan 27.95 

Super  Cycle 22.95 

SI.  Sports  Basket  .22.95 
SI.  Sports  Baseball  22.95 
Summer  (james  2  ,22.95 
Sub  Battle 22,95 


COMMODORE 
128  SOFTWARE 


Superfiaso  125. . 
Superacript.128  , 

Paper  Clip  IE 

Wordwrlter  128  . 
Data  Manger  128 
Swl(tcalcl26  . ... 
Sylvia  Porter  126  . 
Partner  128  .... 
Fleet  System  4  . . 
Perfect  Writer  .  . 
Pocket  Writer  2  .  . 


.57,95 
,46,95 
.47,95 
.42,95 
.42.95 
.42.95 
.42,95 
,42.95 
.46.95 
.49.95 
.36,95 


Pocket  Filer  2 

Pocket  Planner  2  . 
Basic  Comp.  126  . 

Cad  Pak  12B 

Super  C  Compiler 

CoboM28 

Super  Pascal  128 . 
Speed  Term  12a . . 
Cfiarl  Pak  128   . .  . 

Mach  V/128   

Fonlmaster  126  .  . 
Muiilpian126 


.36,95 
.36.95 
.39.95 
.39.95 
.39.95 
.39.95 
.39.95 
.25.95 
.25.95 
.32,95 
.36.95 
.27.95 


NO  SURCHARGE  FOR  MASTERCARD  &  VISA 


■!!^;i!-f&?Ml^^i''gfJvi^1?!'»^ 


ACTIVISION 

Alter  Ego 31 .95 

Borrowed  Time  . .  .25.9& 

Hacker 25.95 

Tass  Times 25-95 

Shanghai .25.95 

Portar 29.95 

GFLFeolball 25. 9S 

2/2BuKelball 25.95 

Champ  Baseball  ..25.95 

SIERRA 

King's 

Quest  I,  II  or  III 31.95 

Smart  Money 32.95 

Space Ouesf  ....  ,31.95 
Black  Cauldron  .  ..25.95 
Helicopter SImul  ..25.95 
Police  Quest Call 

EPrx 

SEE  APPLE  SECTION  FOR 
ITEMS  i  pmCES 


BRODERBUND 

Prim  Shop 3T.9S 

Karateka 21.9S 

Giaphic  Lib  1  or  2  .21.95 
P.S  Companion  ...  31 .95 

Toy  Shop 42.95 

TVpo  ..; 31.9S 

\6riable  Feail  39.95 

Fin  Independence  .94.95 
ForCommenl.  . .  .124.95 

SPRINGBOARD 

Certllleate  Maker..  3a.95 
Newsnjom  Pro  .  . .  .52.95 
SEE  APPLE  SECTION  FOR 
REST  OF  ITEMS  S  PRICES 

UNISON  WORLD 

Prlntmaster 36.95 

Art  Gallery  1    24.95 

Art  Gallery  2  18.95 

Newsmaster .62.95 


ELECTRONIC  ARTS 


Aithon 10.95 

Fin  CooklKJok  ....  10.95 
Music  Construct  . .  10.95 

One  on  One 10.95 

Pirbell  Construct  .10.95 
7Cllle$0f  Go!d  ...10.95 
Super  BIderdash  .  .10.95 

MIndMlrrar 10.95 

Amnoala 29.95 

Gr.  Slam  Bridge  . .  .39.95 

ACCOLADE 

Hanlball 24.95 

Mean  IB 31.95 

PSlTtedingCo.  ...24.95 
Course  Disk 16.95 

SSI 

Rings  ol  Zlllln 25.95 

Kamploruppe 39.95 

Shara/SprTno 25,95 


Murder  Parly 25,95 

Ogre 25,95 

Radio  Baseball   . ,  .25,95 

Scrabble 25.95 

Starfleetl 34.95 

Chesamaster  ,.,,,  25.95 

Ultima  III   39.95 

UltimalV 39.95 

Wrl(JTfGolt(NoAp)  34.95 
SUrfllBhl  (NoAp) ..  34.95 

TIME  WORKS 

Wofdwrller 39,95 

Swlttcalc 39.95 

Data  Manager  ....  39.95 

Sylvia  Porter S4.95 

Swiflax 44.95 

Parlner 39.95 

PC  Powerpach 77.95 


INFOCOM 

Ballyhoo  25,95 

Hitchlkor 25,95 

Ljeather  Goddess ..  25,95 

Trinity 25,95 

Hollywood Hljlnx  ..25.95 

Moonmlal 25.95 

Zork  Trilogy 44.95 

MINDSCAPE 

Bop/Wr«stle 19.95 

Indoor  Sports 19.95 

Indltratof 19.95 

Balance/Power   ...  31 .95 

Sub  Mission 25.95 

Amer Challenge   ,,25-95 

Racter  25-95 

Mastertype 25,95 

Craaswortj  Magic.  .31.95 
Perfect  Score 49.95 


MISCELLANEOUS  IBM 


SDI 25.95 

Detender/Cftrwn  .  .25.95 
Alternate  Reality  .  .31.96 

1st  Csdd 31 .95 

Slarirekli 25.95 

Right  Sim.  li 36.95 

Strip  Poker 25.95 

Orblter 31.95 

Pawn 29,95 

Starglider 29,95 

TlhSplrila 29.95 

Champion Goit  ...31.95 

BATTERIES 
INCLUDED 

Bl  Write 24.95 

Bl  Spell   24.95 

BIFile 24.95 

BICalc 24.95 

Itgur Ponfclllo  ..  .149-99 
I.S.  Talk 31.95 


25.95 
25.95 
22.95 
22.95 
25.9S 


ConfllcfVlelnam 
DeclslonyDesert 
M5  Strike  eagle 
Silent  Service  . . 
Crusade/Europe 

Qunship 22.95 

Unlveiwil 47.95 

wizardry   39.95 

UpPerlicope 19,95 

Thunder  Chopper  .19.95 

Jot 34.95 

Sublog  Baseball   .  .34.95 
Subiog  Football  .  .  .34.95 

Falcon 31,95 

Galo 24.95 

Wilderness   31 .95 

Star1leet2 34.95 


APPLE  SOFTWARE 


ELECTRONIC  ARTS 


Age/Advenlufe ....  1 0.95 

Arthonll 10.95 

Movie  Maker 10.95 

EPYX 

Sporta  Basketball  .25.95 
Sporta  Bsseball ...  25 .95 

World  Karate 19.95 

Wo  rid  Games.,,.,  25.95 

Destroyer 25.95 

Movie  Monster .  .  .  .25.95 
Winter  Games  .,  ,.25.95 
Sumtner  Games  il  .25.95 
ApshelTniogy  ....25.95 

Sub  Battle 25.95 

Epyi  Joyatlck   25.95 


Skyfox 10.95 

Adv.  Construction  .32.95 

ArtlcFox    25.95 

AutOduel   . 32.95 

Bard's  Tale 29.95 

Bard's  Tale  II 32.95 

Lottl/Conquest  ...25.95 
Marble  Madness  ..23.95 

M0Ci!lUS,.,a..  ..3B.95 

Peaasus 25-95 

Ruliia 26-95 

UltShal   26-95 

SEE  IBM  SECTION  FOR 

REST 

OF  ITEMS  AND  PRICES 


SRODERBUNO 

Alrheart 22.95 

Animate 44.95 

Print  Shop 31.95 

On  Balance 25.95 

Toy  Shop .39,95 

TVpo 28,95 

Science  Tool  Kit  ..44,95 
Graph  Lib  1,2  or  3  ,16,95 
Bank  ST  Series. ,  - ,  ,Cali 

MINDSCAPE 

SEE  IBU  SECTION  FOR 
ITEMS  AND  PRICES 


SPRINGBOARD 

Certltlcate  Maker ..  31 ,95 
Clip  Art  1  or  3  ,  . .  .19.95 

Clip  An  2 25.95 

Certltlcatc  Lib  1 .  .  .22.95 
Games/Children  -.22.95 
Graphics  Eirpandar   .25.95 

Newsroom 37.95 

Piece  of  Cake  Math  .22.95 

INFOCOM 

SEE  IBM  SECTION  FOR 
ITEMS  ANO  PRICES 


ACTIVISION 

Gememaker 31 .95 

Hacker  li 25-95 

Labyrlnlh 25-95 

Little  Computer  .  ..25-95 
QreellngCanl  ..  .  .25.95 
SEE  IBUSECriOH  FORREST 
OF    ITEMS    AND    PRICES 

DATA  EAST 

iCarate  Champ  . , , ,  15.95 
Kung  Fu  Master . .  ,15.95 

Commando 25.95 

Tag  Team  Wrest  .  ..  25.95 


Call  For  Other  Apple  Products 


APPLE 

Gettysburg 

Warship 

Phantasle 

Battle/Antlelnam  . 

PhantaalB  If 

Battlecruiser  .... 
Real  ma/Darkness 

Fight  Night  

Hardball 

PSI  Trading  

Comix 

The  Hobhit 

Up  Periscope .... 
Thunder  Chopper 
Alt.  Boailly..    . .. 

Math  Blaater 

Spell  It 

Champ  Wrestling . 
Wizard's  Crown  . . 


MISCELLANEOUS 

39.95  Word  AtUck 31.95 

3i.9S  Elite 23,95 

26.95  Pawn   29,95 

31.95  Stargilder 29,95 

25.95  Gunship 25.95 

39.95  F.15  SThke  Eagle  .  .22,95 

25.95  Silent  Service 22,95 

21.95  Smart  Money 49,95 

21.95  Sublog.  Baseball  ..34,95 

21.95  SubSog  Football ...  34.95 

31.95  Jet 27.95 

23.95  Space  Quest 31-95 

19.95  Animat.  Station  . .  .  59-95 

19,95  Prlnlmaster  + 24-95 

24,95  Art  Gallery  1  or  2..  16.95 

31.95  Publisher 69.95 

31.95  War  In  S.  Pacific   ,.39.95 

25.95  SlarTtakll 25.95 

25-95  Roadwar  2000  ....  25.95 


w 


ATARI  ST  SOI 


ABACUS 

Textpro .32.95 

Dalrleve 32,95 

Text  Designer  ....32,95 
Aasemprd  ..,-,,  ,39,95 
Powerplan  ,,,.,.  ,32.95 

Painlpro 32.95 

Abacus  Books Call 

Sr  GRAPHICS 

Degas  Elite   4S.95 

Easy  Draw 48.95 

Carf3-D 38,95 

Graphic  Artist  ..  ,124.95 

Palnlworka 44,95 

latCadd 31,95 

Aegia  Animator  .  ,  ,48,95 
Heochroma 34,95 

IT 
TELECOMMUNICATION 

Si  Talk  Ver  2.0 18.95 

BB/ST 31.95 

Fiaah 27.95 

LSTaik 31.95 


ST  EDUCATIONAL 

Decimal  Dungeon  .24.95 
Fraction  Action  . .  .24.95 

Kinderama 24.95 

Read  &  Rhyme  ....  24.95 
Animal  Kingdom  .  .24.95 

Speller  Bee 31,95 

Kid  Talk 31.95 

Math  Talk 31,95 

Firat Shapes  ....  ,31.95 
Winnie  The  Pooh,,  16.95 
Donald  Duck 16.95 

ST  DATABASES 

OB  Man 96-95 

flegent  Base 57-95 

Dau  Manager  St  ..48-95 
Zoomrackalt 96-95 

ST  WORD- 
PROCESSORS 

Regent  Word  II 57.95 

WonfwritarSt   46.95 

Thunder 24.95 

Paperclip   Elite Call 


MICHTRON 

Cornerman  31.95 

Echo 24.95 

M-DISk'    24.95 

Major  Motion 24.95 

Michlion  Utilities..  37.95 

Cards 24.95 

Time  Bandits 24.95 

Pera.  Money  Mgr. . .  31 .95 
Pinball  Factory  ...  24.95 

Eight  Bali 1B.95 

Back-Up 24.95 

Match- Point 24.95 

Karate  Kid  II 24.95 

Raid 31.95 

GFA  Basic   48.95 

TIrlmbase  62.95 

space  Shuttle  2 ...  24-95 

Hfcache 24-95 

GFA  Draft 62.95 

INFOCOM  ST 

SEE  IBM  SECTION 
FOR  ITEUS  a  PRICES 


ST  BUSINESS 

VIP  Professional Call 

SwlftcalcSt 46.95 

Isgur  Portfolio  ,,  ,124-95 
Fin.  Cookbook  . ,  ,  ,32.95 

DAC  Payroll 32.95 

DAC  Easy  Accting  .44.95 
Dollars  And  Sense  64.95 
Home  Accountant  .31.95 
Sylvia  Porter 46.95 

Swifla)fB6 46.95 

ST  UTILfTieS 

Music  studio 39.95 

Time  Link 31.95 

Micro  Cookbook  .  -  32.95 

CZ  Drold 69.95 

EZ  Track 39.95 

Write  90 1S.95 

Desk  C^rt 62.95 

DESKTOP 
PUBLISHING 

DfBWrile 99.95 

Pubilah.  fanner  .  .99.95 


ST  ADVENTURES 

Sundog 24,95 

Universe  II 44.95 

The  Pawn 29,95 

Staigllder 29.95 

Dungeonmaster  .  .24.95 

Alt.  Reality 31.95 

Tass  Times 32.95 

Mercenary 24.95 

Autoduei 32.95 

Ogre 25,95 

Defendsr/Cnnvn  -.32.95 

S.D.i 32.95 

Balance  Of  Power  .32.95 

Ultima  III  Or  iV 38.95 

Portal 32.95 

Kings  Quest 

1,2  or  3 32,95 

Space  Quest 32.95 

Pnantasle 25.95 

Phanlasieil 25.95 

Tracker ..........  29.95 

Colonial  Conquest  25.95 

Roadwar  2000 25.95 

Wizard's  Crown  .  .  .25.95 
Rings  Of  Zlltin  ....25.95 


ST  LANGUAGES 

Personal  Pascal . .  .49.95 
Mark  Williams  C.  .114.95 

Lattice  C 99.95 

Cambridge  Lisp.  .139.95 

Modular  II   49.95 

Fast  Basle eS.95 

LOW  Baalc 44.95 


ST.  PRINT 
UTILITIES 

Rubber  Stamp  ...  .24.95 
Prlntmaster  Plus  ..24.95 

MegatonlSt 24.95 

Aril3allery  1  Or  2  .16.95 
IVpesettar  Elite  ...31,95 
PMlnlariace 16.95 


ST  ARCADE  GAMES 


Winter  Games 24.95 

Rouge 24.95 

Super  Huey 25.95 

Mean  IS 25.95 

i=amoua  Courae  . . .  14.95 

Leader  Board 25.95 

Brattacua  ....... .32.95 

Silent  Service 25.95 

Flight  Simulator  11  .33.95 
Champ  Wrestling-. 24.95 

World  Games 24.95 

Chesamaster  2000  32.95 

Tenth  Frame 24.95 

Shanghai 29.95 

Micronsaseball 39.95 

WWF  Wrestling  .  .  .39.95 


Skyfox 29,95 

Super  Cycle 24.95 

Indoor  sports  ....  1 9.95 
F-15  Strike  Eagle  .  .27.95 
High  Roller  Slm...  19.95 
TwonVfO  Ba3kelball20.95 
Deep  Space  ,  . , . ,  ,29-95 

Arena 22.95 

St  Karate 22,95 

The  Wanderer 25,95 

Chamj)  Baseball  .  .29.95 

GFL  Football 29,95 

Harrier  Strike 31,95 

SubBanlaSIm  ,,.24.95 
Arctic  Fox   26.95 


ATARI  XE/XU400/800  SOFTWARE 


BRODERBUND 

Kamteka 19.95 

Print  Shop 28.95 

Bank  Street  Writer. 32. 95 
Graph.  Lib  1,2  or  3  16.95 
P.S.  Companion  .  .  .22.95 

MICROPROSE 

Silent  Service  .  ,  ,  ,22.95 
1^15  Strike  Eagle  .  .22.95 
Decision  In  Desert. 25. 95 
Ken.  Approach  ...16.95 
Crusade/Europe  .  .25.95 
Conflict/Vietnam .  .25.95 
Top  Gunner 1 6.95 


INFOCOM 

Hitchlker 22.95 

WIshtiringer.  ,,.,,22.95 

Ballyhoo   25,95 

Moonmlat ,22.95 

Leather  Goddesa .  ,22.95 
Hollywood  HIiinx  ,  .22.95 
Zork  Trilogy 39.95 

XLENT  SOFTWARE 

Mogafontll 16.95 

Page  Designer 18.95 

Megaflier 1 8.95 

PS  Tnlertace 1 6.95 

Rubber  Stamp 18.95 

Typesetter 21.95 


ELECTRONIC  ARTS 


MISCELLANEOUS  XEIXLI  4O0  /  800 


Age  Of  Adventure  ,  10,95 

Art^hon , ,  10,95 

Arehon  II 10.95 

Financlsl  Cookt»ok10,95 
Mall  Ord.  Monsters  10.95 
Movie  Maker  .....  10.95 
Music  ConstructlonlO.OS 

Qne  On  One 10.95 

Pint>all  Constnjctionia.95 

Racing  Destruction  10.95 

7  Cities  Of  Gold  .  . .  10.95 

BATTERIES 

INCLUDED 

HomePak  14.95 

Paperclip  w^Spell .  .36.95 
B-Sraph 24  95 


Super  Bould.  Dash  10.95 
Touch.  Football  ...10,96 
Chesamaaler  2000  25.95 
Chlclsumauga  . ,  .23,95 
Lonjs/Conquest , ,  .22,95 

Ogre 25.95 

flommel/Toburk . .  .26,95 

Starfleetl 33.95 

Ultima  1   27.95 

Ultima  III   31.95 

Ultima  iV 36.95 


Flight  Simulator  -.33-95 

Universe 57-95 

Strip  Poker 21-95 

Micro  League 

Baseball 25.95 

Hare/Brace  Sat  ...69.95 
General  Mgr.  MLB  .25.95 

Fight  Nlghl   18-95 

Hardbair 18-95 

Triple  Pak 14-95 

Leader  Board 24-95 

Tourn.  DIak/LB  ...14.95 


Executive  DIsWLB.  14.95 

Tenth  Frame 27.95 

Infiltrator 19.95 

Bop 'N' Wrestle...  19.95 

Super  Huey 16.95 

Home  Planetarium  27.95 
Atariwriter  Plus  ...39.95 
MLB  Boxscore/Stat  16.95 
Home  Accountant  .30.95 
Apshal  Trilogy  ....  16.95 
Summer  Gamea. . .  16,95 


Worid  Karate 
Championship . . ,  ,19,95 

Mercenary 18,95 

Wizanl'B  Crown  .  .  .27.95 

Gettshurg 39.95 

Warship  T 39.95 

Syndle 32.95 

Syncalc 32.95 

Music  Studio 22.95 

Alt.  Reality 24.95 

A/n  Dungeon 24-95 


Call  For  Other  Atari  Products 


PS^filiS^SHf 


ipssfi^isiis! 


AMIGA  ARCADE  GAMES 


MIcToleague  Baseb.39.95 

The  Pawn 29.95 

Flight  Simulator  II  .34.95 

Kings  Quest  11 34.95 

Black  Cauldron  ..  .34.95 

Jet 34,95 

Silent  Service  ..  ,  ,27,95 

Mean  16 27,95 

Leader  Baani 27.95 


Tenth  Frame. . ,  ,  .  ,27,95 
Winter  Games  .  .  .  .27,95 

Strip  Poker 29.95 

Hex 27,95 

Worid  Gomes 27.95 

Deep  Space 29.95 

Arena 24.95 

Publisher 129.95 

stargilder 29.95 


Mastertype 

Halley's  Project  - .  .29.95 

Brataccus   . 34.95 

Racter 29.95 

SDI 34.95 


MINDSCAPE 

27.95      King  of  Chicago 


.  ^       .-    -.34.95 

Defender  of 

the  Crown 34.95 

SInbad  ,  - . , 34-95 

Balance  sf  Power  .34.95 


ACTJVISION 

Hacker 29.95 

MIndshadow 29.95 

Borrowed  Time  .  .  .29.95 
Little  Computer 

People 34.95 

Borrowed  Time  . .  .29.95 

Music  Studio 39.95 

Shanghai 29.95 

Hacker  II 34.95 

Tass  Times 29.9s 

GBA Basketball  ..  .29.95 
Champ-  Baseball  .  -29.95 
GFA  Football 29.95 


ELECTRONIC  AITTS 

Skyfox 27.95 

Arctic  Fox   27.95 

Marble  Madness  ..  34.95 
Return/Atlantis  .  ..29,95 
Fin.  Cookbook..  ..34.95 
Adventure  Constr  .27.95 
Chessmasler  2000  32.95 

Instant  Music 34.95 

Deluxe  Print 69.95 

Deluxe  Video 69.95 

Deluxe  Paint 69.95 

Archon  I  or  II 27.95 

One  of  One  27.95 


7  Cities  of  Gold  ...27.95 

Startleet  One 36.05 

An  Disk/ 

Deluxe  Print 20.95 

Art  Disk/ 

Deluxe  Paint 20.95 

Bard's  Tale 34.95 

Mualc  Const-  2-0  .  .69.95 

Autoduei 34.95 

Ultima  111 41.95 

Deluxe  Paint  li Call 

Grand  Prix   Call 

Earl  Weaver  Baseball  Call 


AMIGA  PRODUCTIVITY 

VIP  Professional  .169.95 

Analyse  2.0 94.95 

On-Llne 44.95 

Sclrbble 64.95 

Organize  .64.95 

Prlntmaster 32.95 

Art  Gallery  I  or  li  ..19.95 
Zumafonll.il  or  111,  21 ,95 

Impact 129,95 

AsglaOraw 74.95 

-gls 


Maxiplan 99.95 

Maxicont  , 34,95 

Maxideak 47.95 

Paperclip  Elite 64.95 

Daoas  Elite   52.95 

LDP  Planner   79.95 

LPO  Writer 79.95 

LPD  Filer 79.95 

Logistics 159.95 

Modular  II  64.95 

Gizmo   34.95 


Anrmator/lmages. .  64.95       Supettiase  Amiga  '99195 
Aegis  Art 23.95       DBMan ...99,95 

Call  For  Other  Amiga  Software  Products 
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IFF  Translator 
For  Amiga  BASIC 


Michael  Barron 


This  program  translates  IFF  image 
files  from  programs  such  as  Deluxe 
Paint  i7%to  files  which  can  be  used  in 
your  own  Amiga  BASIC  programs.  It 
works  only  in  conjunction  with  a 
drawing  program  that  creates  IFF- 
format  image  files  (see  below). 


Amiga  BASIC  provides  a  number  of 
powerful  OBJECT  commands  for 
animating  sprite  and  bob  shapes.  In 
order  to  use  these  commands,  you 
must  first  have  an  image  to  ani- 
mate. The  Amiga  Extras  disk  in- 
cludes an  object  editor  for  creating 
sprite  and  bob  images;  however, 
this  simple  program  has  a  number 
of  limitations.  Commercial  drawing 
programs  such  as  Deluxe  Paint,  Ae- 
gis Images,  and  Graphicraft  are 
much  more  powerful  and  conven- 
ient to  use,  but  the  image  files 
which  they  create  can't  be  used  di- 
rectly in  Amiga  BASIC. 

"IFF  Translator"  allows  you  to 
translate  standard  IFF  Amiga 
graphics  files  for  use  in  BASIC  pro- 
grams. (IFF  stands  for  Interchange 
File  Format,  a  standard  file  struc- 
ture developed  jointly  by  Electronic 
Arts  and  Commodore- Amiga.  Most 
commercial  drawing  programs  for 
the  Amiga  store  images  according 
to  the  IFF  standards.) 

Creating  An  Image 

Before  you  can  use  IFF  Translator, 
you  must  create  an  image  file  with 
Deluxe  Paint  or  any  other  IFF- 
compatible  program.  This  article 
will  discuss  the  procedure  to  follow 
with  Deluxe  Paint;  other  programs 
use  a  similar  process.  (Dnce  you 
have  created  the  image  file,  you  can 
run  IFF  Translator  to  convert  the 
file  to  a  form  usable  by  BASIC. 
Before  you  create  the  image. 


Deluxe  Paint  Command  Summary 

1>  DPAINT  <resolution>  <#planes> 

resolution: 

LO  320*200 

MED      640*200 

HI  640*400 

2     2  bit  planes,  4  colors 
1     1  bit  plane,  2  colors 

The  default  Deluxe  Paint  screen  could  be  entered  as: 

1>  DPAINT  LO  5 

A  Workbench-type  screen  could  be  entered  as: 

1>  DPAINT  MED  2 


#planes: 

5    5  bit  planes,  32  colors  (low-res  only) 

4     4  bit  planes,  16  colors 

3    3  bit  planes,  8  colors 


set  the  drawing  program  to  the  type 
of  screen  which  you  will  need  in 
BASIC.  For  instance,  if  you  wish 
the  image  to  be  compatible  with  the 
default  (Workbench)  screen,  the 
drawing  program  should  be  in  me- 
dium resolution  with  two  bit  planes. 
In  Deluxe  Paint,  the  screen  setting  is 
determined  by  the  command  you 
use  to  start  the  program  from  the 
CLI.  The  table  above  summarizes 
the  commands  used  to  select  differ- 
ent screens  in  Deluxe  Paint. 

IFF  Translator  also  incorpo- 
rates the  color  palette  from  the  orig- 
inal image  file.  To  change  the  color 
palette  in  Deluxe  Paint,  click  the 
right  mouse  button  on  the  fore- 
ground color  indicator  and  adjust 
the  color  sliders  of  the  palette  win- 
dow as  needed. 

After  you  have  drawn  the  de- 
sired image,  it  must  be  saved  as  a 
brush.  To  select  an  image  as  a  brush 
within  Deluxe  Paint,  click  the  left 
mouse  button  on  the  brush-selection 
tool  and  drag  a  selection  box 
around  the  image.  To  save  a  brush 
file,  select  the  Save  As  option  from 
the  program's  Brush  menu. 

Exit  the  drawing  program.  At 
this  point,  the  image  has  been 
saved  as  a  brush  file  on  disk.  To 
minimize  disk-swapping,  you  may 


want  to  copy  the  brush  file  to  your 
BASIC  work  disk.  IFF  Translator 
will  store  the  BASIC-compatible 
files  in  the  same  folder  as  the  origi- 
nal brush  file. 

Using  IFF  Translator 

Type  in  and  save  IFF  Translator, 
then  run  it.  The  program  asks  you 
to  enter  the  name  of  an  IFF  file  to 
translate.  Enter  the  correct  name 
and  allow  the  program  to  process 
the  file.  IFF  Translator  reads  and 
writes  to  disk  until  the  translation  is 
complete,  so  do  not  disturb  the  des- 
tination disk. 

After  the  translation  is  com- 
plete, the  program  recreates  the 
same  screen  that  was  in  effect  when 
you  created  the  original  image. 
Then  it  displays  the  image  on  the 
screen  and  permits  you  to  move  it 
around  with  the  mouse  pointer  for 
examination.  Press  any  key  to  exit 
the  program. 

IFF  Translator  creates  two  new 
files  for  BASIC.  The  first  is  a  file  of 
the  same  name  with  the  extender 
—Field.  The  second  has  the  same 
name  with  the  extender  _Image. 
For  example,  if  the  original  file  is 
named  FLOWER,  IFF  Translator 
creates  files  named  FLOWER_Field 
and  FLOWER_Image. 
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The  -Field  file  is  a  BASIC  sub- 
routine which  recreates  the  original 
screen  from  which  the  in-iage  was 
saved.  This  subroutine,  named  De- 
finePlayField:,is  stored  in  plain 
ASCII  form  and  can  be  merged 
with  an  existing  program  or  used  as 
the  basis  of  a  new  program. 

The  —Image  file  is  compatible 
with  OBJECT  commands  in  Amiga 
BASIC.  Specifically,  it  is  used  with 
OBJECT.SHAPE  to  define  an  im- 
age. This  image  can  be  used  exactly 
like  any  image  created  with  the 
BASIC  object  editor  program.  The 
following  code  demonstrates  how 
to  read  and  define  an  image  con- 
tained in  an  _Image  file: 

OPEN  "/i/ename-Image"  FOR  INPUT 

AS  1 
OBJECT.SHAPE  l,INPUTSSaOF(l),l) 
CLOSE  1 

Of  course,  you  should  replace 
filename  in  the  OPEN  command 
with  the  name  used  for  your  file. 
Once  the  object  has  been  defined,  it 
can  be  manipulated  like  any  other 
object,  as  explained  in  the  Amiga 
BASIC  manual. 

IFF  Translator 

For  instructions  on  entering  this  program, 
please  refer  to  •'COMPUTEI's  Guide  to  Typing 
In  Programs"  elsewhere  In  this  Issue. 

Mainline:* 

GOSUB  Initialize-* 

OPEN  FilelFF?  FOR  INPUT  AS  It 

PRINT  "Reading  from  file     :    "  ; 

FilelFF?  ■« 

GOSUB  Trans lateChunks-* 

CLOSE  1* 

OPEN  FileIFFS+"_Field"  FOR  OUTPU 

T  AS  1* 

PRINT  "Writing  to  file       i  "; 

FileIFFS+"_Field"* 

GOSUB  CreateFieldFile* 

CLOSE  1* 

OPEN  FileIFF$+"_Image"  FOR  OUTPU 

T  AS  H 

PRINT  "'Writing  to  file       :  "; 

FileIFF$+"_Image"* 

GOSUB  CreatelmageFile* 

CLOSE  1* 

GOSUB  DisplayBOB-* 

END-* 

* 

Initialize:* 

WINDOW  1 , "TranslatelFF" , (0,1 36)- 

(459,186)  ,15-t 

DEFIST  a-z-* 

DIM  Rl(31),Gl  (31)  ,B1  (31)-* 

True=-1-* 

FalsesO-t 

INPUT  "IFF  file  to  translate:  " , 

FilelFF? -* 

RETURN-* 

■* 

TranslateCtiunka  ;* 

ckID5=INPUT5(4,l)* 

SKipData5  =  INPUT$  (4,1)-* 

ckType?=INPUT5  ( 4 , 1 ) -* 

IF  ckID5<>"F0RM"  OR  ckType$<>"IL 

BM"  THEN* 


PRINT  "File  is  not  a  FOEIH  ILBM  c 

hunk, "* 

STOP* 

END  IF* 

FoundBMHD=False< 

FoundCHAP=False* 

WHILE  True* 

ckID$=INPUT?{4,l)* 

ckLength6.=CVL(lNPUT$(4,l)  )* 

IF  ckIDS="QMHD"  THEN* 

GOSUB  TranSlateBMHD* 

FoundBMHD=True* 

ELSEIF  ckID5="CMAP"  THEN* 

GOSUB  TranslateCMAP* 

FoundCMAP=True* 

ELSEIF  ckID$="B0DY"  THEN* 

IF  FoundBHHD  AND  FoundCMAP  THEN* 

GOSUB  TranslateBODY* 

RETURN* 

ELSE* 

PRINT  "Context  chunks  are  missin 

g."* 

STOP* 

END  IF* 

ELSE* 

SkipData?=INPUTS ( ckLengthfc, 1 ) * 

SkipData5=""* 

END  IF* 

IF  ckLengthSe  MOD  2  THEN* 

SkipDataS=INPUT?(l, 1)* 

END  IF* 

WEND* 

* 

TranslateBMHD:* 

Wide£.=.CVI  (INPUT?  (2,1)  )* 

Height&=CVl( INPUT? (2,1) )* 

SkipData?=INPUTS(4,  D* 

Depth£<=ASC(  INPUT?  (1,1))* 
Hasking=ASC( INPUT? (1,1))* 

Corapression=ASC( INPUT? (1,1) )< 

SkipData?=INPUT? (1,1)* 

Tr ansColor=CVI ( INPUT? (2,1))* 

SkipData?='INPUT?  (  2 , 1 )  * 

PageWidtli=CVl(  INPUT?  (2,1)  )* 

PageHeight=CVI ( INPUT? (2,1))* 

ScnHode=PageWidth/3  20-H2*(PageHei 

ght/200-1)* 

PlanePick=2"Depth&-l* 

IF  Masking <> 2  THEN* 

PRINT  "Unknown  masking  technique 

used . "* 

STOP* 

END  IF* 

IF  Compression=0  THEN* 

FileCompressed=False* 

ELSEIF  Compress ion=l  THEN* 

FileCorapressed=True* 

ELSE* 

PRINT  "Unknown  compreasioti  techn 

ique  used. "* 

STOP* 

END  IF* 

IF  TranaColoroB  THEN* 

PRINT  "Register  zero  is  not  the 

transparent  color."* 

STOP* 

END  IF* 

Header $=MKL5  ( 0 ) -l-MKL?  ( 0 ) -l-MKL?  ( Dep 

thS. )  +MKL?  ( WideS. )  +MKL?  (  Heights  )  * 

Header  ?=Header?-vMKI$  (  24 )  -HHKI?  ( Pi 

anePicX)+MKlS(0>* 

RETURN* 

* 

TranalateCMAP:* 

ColorCount=ckLength&/3-l* 

FOR  Register=0  TO  ColorCount* 

Rl ( Register )=INT(ASC( INPUT? (1,1) 

)/l2)/20* 

Gl ( Register )=INT<ASC( INPUT? (1,1) 

)/12)/20* 

Bt (Register)=INT(ASC( INPUT? (1,1) 
)/12)/20* 

NEXT  Register* 

RETURN* 


TranslateBODY:* 

ByteBPerRow=2*INT(  (WideS<-H5) /16) 

* 

By tesPerPlane=Bytes Per Row* Height 

6* 

ReqBytes=BytesPerPlane*DepthE<* 

BitMap?sSTRING? ( ReqBytes , CHR? ( 0 ) 

)* 

FOR    RowNo=l    TO    Heights* 

Pointer=l+DytesPerRow* ( RowNo-1 ) * 

FOR    PlaneNo=l    TO    Depths* 

Of  fset''BytesPerPlane*(PlaneKo-l ) 

* 

IF  FileCorapressed  THEN* 

Row?=" "* 

WHILE  LEN( Row?) <BytesPerRow* 

UByte=ASC( INPUT? (1,1) )* 

ControlByte=UByte-2*(UByte  AND  1 

28)* 

IF  ControlByte<-127  THEN* 

'No  Operation* 

ELSEIF  ControlByte<0  THEN* 

Row?=Row?+STRING?(-ControlByte-H 

.INPUT? (1,1) )* 

ELSEIF  ControlByte<128  THEN* 

Row?=RQW?  +  INPUT?(ControlByte-H,l 

)* 

END  IF* 

WEND* 

ELSE* 

Row?=INPUT5 (BytesPer Row, 1 ) * 

END  IF* 

MI  D$  ( BitMap?  ,  Pointer-i-Off  set ,  Byte 

sPerRow)-*Row?* 

NEXT  PlaneNo* 

NEXT  RowNO* 

RETURN* 

* 

CreateFieldFile:* 

PRINT*!, "DefinePlayField: "* 

PRINT#1, USING  "   SCREEN  !_,###_, 

***_' *_' * " • PageWidth.PageHeight, 

DepthE. ,  ScnMode* 

PRINT* 1,  "   WINDOW  1,";CHR?(34); 

FilelFF?; CHR? (34) ;",,3,1"* 

FOR  Register=0  TO  ColorCount* 

PRINT  »1, USING  "   PALETTE  ##_,#. 

##_,#.##  ,#.##";Register,R! (Regi 

ster) ,GiTRegister) ,B1 (Register)* 

NEXT  Register* 

PRINT  #1,"   RETURN"-* 

RETURN* 

* 

CreatelmageFile:* 

PRINT  #l,Header?+BitMap?,-* 

RETURN* 

* 

DisplayBOB;* 

SCREEN  l,PageWidth,PageHeight,De 

pth&, ScnMode* 

WINDOW  2, "DisplayBOB" , ,0,1* 

FOR  Register=0  TO  ColorCount* 

PAX.ETTE  Register, Rl  (Register )  ,Gi 

(Register) ,B1 (Register)* 

NEXT  Register* 

PRINT  "Hit  any  key  to  return  to 

BASIC."* 

PRINT  "Manipulate  BOB  with  mouse 

pointer."* 

OBJECT.SHAPE  1 , Header?+BitMap?* 

OBJECT. X  1,0* 

OBJECT. y  1,16* 

OBJECT. ON* 

WHILE  INKEYS=""* 

IF  MOUSE(0)<>0  THEN* 

OBJECT.  X  1,  MOUSE  (1)-Wide6t* 

OBJECT. Y  1,M0USE( 2) -Heights* 

END  IF* 

WEND* 

OBJECT . OFF* 

WINDOW  1* 

SCREEN  CLOSE  1* 

RETURN*  @ 
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Magazine  Indexer 


This  program  is  a  must  for  anyone 
who  reads  computer  magazines  regu- 
larly. It  indexes  articles  by  date,  com- 
puter, and  subject  category.  With  the 
sophisticated  search  capabilities  of 
"Magazine  Indexer,"  you  can  easily 
locate  groups  of  related  articles  as 
well  as  individual  articles.  Versions 
are  included  for  the  IBM.  PC  and  PCjr, 
the  Apple  II  series  (DOS  3.3  or  Pro- 
DOS),  and  Atari  ST. 


Has  this  ever  happened  to  you? 
While  working  on  a  program,  you 
remember  a  magazine  article  that 
contains  just  the  programming 
information  you  need  to  finish  the 
project.  But  laying  your  hands  on 
that  article  is  another  matter.  It  may 
take  minutes  or  even  hours  of  page- 
flipping  before  you  locate  the  infor- 
mation you  need. 

The  solution  to  this  problem  is 
simple:  Build  an  index.  For  a  maga- 
zine like  COMPUTE!,  which  covers 
several  computers,  a  good  index 
would  allow  you  to  locate  articles 
based  on  the  type  of  computer  as 
well  as  on  the  general  subject. 
"Magazine  Indexer"  automates  this 
chore,  allowing  you  to  build  up  a 
comprehensive  index  month  by 
month.  The  real  payoff  comes 
when  you  need  to  search  the  data- 
base, since  the  computer  can  locate 
and  pull  together  information 
many  times  faster  than  the  fastest 
file  clerk. 

Magazine  Indexer  is  designed 
specifically  for  indexing  computer 
magazines;  it  is  not  a  general- 
purpose  database  or  filing  program, 
though  with  some  work  you  could 
adapt  it  to  other  purposes.  Since  the 
program  is  self-prompting,  tittle  in- 
struction is  needed  to  use  it.  Simply 


Marc  Sugiyama 


select  your  choices  from  the  on- 
screen menus  and  respond  to  the 
prompts  as  indicated.  Type  in  and 
save  the  program  for  your  com- 
puter. For  the  Atari  ST  version,  se- 
lect medium  resolution  from 
Preferences  before  you  run  the  pro- 
gram. Line  430  of  the  ST  version  is 
more  than  one  screen  line  in  length; 
when  typing  in  this  line,  be  sure 
that  the  first  character  in  each 
screen  line  is  a  blank  space. 

Starting  Out 

The  first  time  you  run  Magazine 
Indexer,  it's  necessary  to  create  the 
data  file  that  will  hold  the  infor- 
mation. The  IBM  and  ST  versions 
automatically  handle  this  detail  for 
you  by  creating  a  new  file  if  none 
exists.  For  the  Apple  version,  an- 
swer the  question  IS  THIS  A  COLD 
START?  by  pressing  Y  for  yes,  The 
data  file  is  always  named  INDEX- 
LDAT.  The  Apple  version  creates  a 
second  index  file  in  addition  to  the 
main  data  file.  You  may  use  a  disk 
that  contains  other  files.  However, 
if  you  plan  to  catalog  a  large  num- 
ber of  magazines,  it's  best  to  start 
with  a  completely  empty  disk. 

Your  first  task,  of  course,  is  to 
enter  the  data  about  each  magazine 
article.  Note  that  a  date  must  be 
entered  as  a  three-letter  month  ab- 
breviation, followed  by  a  space  and 
a  two-digit  year  number.  The  first 
letter  of  the  month  abbreviation 
must  be  capitalized  (except  on  the 
Apple  version).  For  instance,  Nov 
86  represents  November,  1986.  Jan 
85  is  the  correct  entry  for  January, 
1985,  and  so  on.  The  program  is 
also  sensitive  to  the  case  of  article 
names.  For  example,  Paul  is  distin- 
guished from  PAUL,  and  so  forth. 

Pressing  RETURN  (or  Enter  for 
IBM)  generally  returns  you  to  the 


beginning  of  a  specific  operation  or 
to  the  main  menu.  There  are  some 
exceptions,  however.  Pressing  RE- 
TURN at  the  COMMENT  prompt 
tells  the  program  that  you  don't 
want  to  include  a  comment.  Press- 
ing RETURN  at  the  Applications 
and  Computers  SELECT/DESE- 
LECT prompt  indicates  that  you're 
going  to  accept  the  setting  shown 
on  the  screen.  Finally,  pressing  RE- 
TURN at  any  prompt  in  the  editing 
section  means  that  you  do  not  want 
to  change  the  current  item  dis- 
played on  the  screen. 

Once  data  has  been  entered, 
you  may  search  the  database  by 
indicating  the  subjects  and  comput- 
ers you  wish  to  search  for.  You  may 
also  search  for  an  article  by  date  or 
article  title.  In  the  IBM  and  Atari  ST 
versions,  a  search  category  is  select- 
ed by  choosing  the  item  highlight- 
ed on  the  screen.  In  the  Apple 
version,  enter  the  digits  that  stand 
for  the  categories  you  want  to 
search.  For  example,  to  include  cat- 
egories 1,  5,  and  7  in  the  search, 
enter  the  number  157  (without  any 
spaces)  and  press  RETURN. 

Printer  Option 

When  you've  selected  the  items  to 
search  for,  you  have  the  option  of 
displaying  the  information  on  the 
screen  or  sending  it  to  a  printer.  The 
IBM  and  Apple  versions  allow  you 
to  pause  either  listing  by  pressing 
the  space  bar  (press  the  space  bar  a 
second  time  to  resume).  If  you  press 
RETURN  or  Enter,  the  search  halts 
immediately.  In  the  ST  version, 
press  RETURN  to  pause  a  listing  to 
the  screen  and  press  any  other  key 
to  resume.  You  cannot  pause  or 
interrupt  a  listing  to  the  printer  in 
the  ST  version. 
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Variobte  Usage  (IBM  version) 


Variable 

APPLEN 

APPSSO 
CAPPSS 
CCOL 

CCOMMENT$ 

CCOMPSS 

CDATES 

CNAMES 

CNEXTRECS 

COMMENTLEN 

COMPLEN 

COMP5S0 
CPAGES 
CR$ 
CROW 

DATELEN 

INPUTLENGTH 

INTREC 

10$ 

LASTENTRY 

MAINMENU$0 

MAINOPTION 
MAXINPUTLEN 

MONTHS$() 
NAMELEN 
NEXTLEN 
NODATE 

NOFILE 

NUMAPPS 

NUMCOMPS 
NUMMAINMENU 

NUMSEARCH 

PAGELEN 

PRINTER 

RAPPS 

RC01VIMENT$ 

RCOMP$ 

RDATE$ 

RECLEN 

RNAMES 

RNEXTRECS 

RPAGE$ 
SEARCH$() 

SEARCHOPTION 

SEARCHTITLESSO 

SERROR 

STARTENTRY 
TITLES 

TITLES$() 

Z$ 


Purpose 

length  of  application 

field 

names  of  applications 

current  application 

which  column  cursor 

is  in 

current  'comment 

current  computer 

current  date 

current  name 

current  pointer 

length  of  comment 

field 

length  of  computer 

field 

names  of  computers 

current  page  number 

CHR$(13) 

which  row  cursor  is 

on 

length  of  date  field 

length  of  input  string 

which  record  was 

allocated? 

string  to  send  to  disk 

temp  entry  pointer 

entry  names  in  main 

menu 

option  selected 

length  of  input  string 

to  accept 

months  of  year 

length  of  name  field 

length  of  pointer  field 

was  date  specified  for 

search? 

existing  data  file 

number  of 

applications 

number  of  computers 

number  of  et\bie6  in 

main  menu 

number  of  search 

methods 

length  of  page  number 

field 

printer  on/off  flag 

application  field 

comment  field 

computer  field 

date  field 

length  of  entire  record 

name  field 

record  variable,  pointer 

field 

page  field 

entry  names  for 

search  menu 

which  search  was 

selected? 

screen  titles  for  search 

menu 

abort  flag 

temp  entry  pointer 

Htle  to  put  at  top  of 

screen 

screen  titles  for  main 

menu 

STR$(0) 


Program  1:  Magazine 
Indexer  for  IBM  PC/PCjr 

For  instructions  on  entering  this  iisting,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  in 
Programs"  in  this  issue  of  computei. 

01    100    FILE«="indeK  l.dat"  :REM    Di 
ta    file    name 
REM    Title    Page 


Lt  150 
NP  160 
16  170 
K6  180 
Jfl    190 

611   200 

PB  210 

UK   220 

»«   230 

HP  240 

NO  250 
DJ   260 


ON    ERROR    BDTQ    2810 

DEFINT    A-Z: OPTION    BASE    1 

CLS:KEY    OFF: WIDTH    80:SCRE 

EN    0,0, 0,0: LOCATE    ,,0 

LOCATE  3,29iPRlNT"The  Mag 

azine  Indexer" 

LOCATE  7,31:PRINT"Data  Ba 

se  Program" 

LOCATE  ll,31:PRINT"0ne  Mo 

ment  PleasB" 

REM  initial iiation 


READ  NUMMAINMENU: DIM  MAIN 
MENU* (NUMMAINMENU) .TITLES 
•(NUMMAINMENU): FDR  1=1  TO 
NUMM A INMENU:READ  MAINMEN 
U«(I):NEXT:DATA  7, "Add"," 
Edit", "Delete", "List", "Se 
arch", "Printer  Mode", "Qui 
t" 

8E  270  FDR  1  =  1  TO  NUMMAINMENU:  RE 
AD  TITLES* (I): NEXT: DATA  " 
Add  a  Record", "Edit  a  Rec 
ord", "Delete  a  Record", "L 
ist  Fi les" , "Search  Record 
5",, "Leave  INDEX" 

LE  280  READ  NUMSEARCH: DIM  SEARCH 
« (NUMSEARCH) , SEARCHTITLES 
•(NUMSEARCH) : FOR  1=1  TO  N 
UMSE ARCH: READ  SEARCH* ( I ) : 
NEXT: DATA  6, "computer ", "c 
lass" , "computer  and  class 
", "issue", "title", "return 

6L  290  FOR  1  =  1  TO  NUMSEARCH:  READ 

SEARCHTITLES* ( I ) : NEXT: DA 

TA  "Computer ", "Class" , "Co 

mputer  and  Class", " Issue" 

, "Title", 

at  300  READ  NUMCOMPS:  IF  NUMCOMPS 
>li  THEN  PRINT"Error;  can 
't  have  more  than  16  camp 
uters":STOP 

66  310  DIM  COMPSS  ( NUMCOMPS i  :  FDR 
1=1  TO  NUMCOMPS; READ  CDMP 
S*(I) :NEXT:DATA  15, "Apple 
" , "Atari ", "Macintosh", "At 
an  ST",  "\/IC-20"  ,  "Commodo 
re  64", "Commodare  128", "C 
omtoodore  Plu5/4",  "Commodo 
re  16", "PET/CBM", "Texas  I 
nstruments","IBM  PC", "IBM 
PC  ir  ".  "Ami  ga"  .  "Genera!  " 

re  320  READ  NUMAPPS: IF  NUMAPPS>1 
6  THEN  PRINT"Error:  can't 
have  more  than  16  applic 
ations":STOP 

m  330  DIM  APRS* (NUMAPPS): FOR  1= 
1  TO  NUMAPPS: READ  APRS* ( I 
):NEXT:DATA  9, "Game" , "Ut i 
1 i ty ", "Appl i cation" , "Subr 
Dutine" , "Datosort ", "Mac hi 
ne  Language", "Review" , "La 
nguage", "General  Interest 

OC  340  DIM  MONTHS*  (12):  FOR  1  =  1  T 
0  12: READ  MONTHS* ( I ): NEXT 
:DATA  "Jan" , "Feb", "Mar ", " 
Apr", "May" , "Jun", "Jul ",  "A 
ug" , "Sep", "Oct", "Nov", "De 
c" 

3N  350  NEXTLEN=2:NAMELEN=40:COMM 


ENTLEN=40: DATELEN= 10 : PAGE 
LEN=2: APPLEN=2: C0MPLEN=2 
t-.L  360  RECLEN=NEXTLEN+APPLEN+COM 
PLEN+NAMELEN+DATELEN+PA6E 
LEN+COMMENTLEN 
BB  370  CRS=CHR*(13> :PRINTER=0:NO 

FILE=0 
KF  3B0  : 
OB  390  REM  -find  how  many  records 

there  sre 
ItE  400  : 

IF  410  OPEN  FILE*  FOR  INPUT  AS  # 
1  LEN=RECLEN:CLOSEttl  :REM 
see  i*  the  file  is  there 
BJ  420  OPEN  FILE*  AS  *tl  LEN=RECL 
EN  ; REM  assume  random  ace 
ess 
HK  430  FIELD  #1,  NEXTLEN  AS  RNEXT 
REC*,  APPLEN  AS  RAPP«,  CO 
MPLEN  AS  RCOMP*,  NAMELEN 
AS  RNAME«,  DATELEN  AS  RDA 
TE«,  PABELEN  AS  RPABE*,  C 
DMMENTLEN  AS  RCOMMENT* 
NO  440  : 
HF  450  REM  build  empty  record  en 

try  if  no  file 
HC  460  : 

in   470  IF  NOFILE=0  THEN  550 
00  480  LOCATE  22,  22:  PRINT"Openi  n 
g  data  file  for  the  first 
time": FOR  U=l  TO  2000: NE 
XT 
LP  490  REM  RNEXTREC  holds  the  ne 
xt  blank  record;  RPA(sE  ho 
Ids  the  last  record  in  th 
e  file;  RDATE  holds  the  d 
ate  the  file  was  created; 
other  fields  are  meaning 
less 
FF  500  LSET  RNEXTReC*=MKI*(0t:LS 
ET  RNAME»=" Dummy  Record"! 
LSET  RDATE*=DATE«:LSET  RP 
AGE«=MKI*(1) :LSET  RCOMMEN 
T«="Null  record  chain" 
NG  510  PUT  #1,1 
KL  520  r 

HO  530  REM  main  menu 
KP  540  : 

KB  550  GET#1, 1:N0FILE=(RPAGE*=MK 
I*(1)):IF  NOFILE  THEN  MAI 
NDPTI0N=1:G0TD  590 
KE  560  MAINDPTION=0:TITLE«="INDE 
X  program" :Q0SUB  25B0:FDR 
1=1  TO  NUMMAINMENU: PRINT 
TAB(30);"(";I;")  "iMAINM 
ENU»(I) :NEXT 
!D  570  PRINT:PRINT  TAB  (30)  ;  "Comm 
and  5  " ; : MAX I NPUTLENGTH= 1 : 
GOSUB  1840 
JP  5B0  IF  IN<1  OR  IN>NUMMAINMENU 
THEN  550  ELSE  MAINOPTION 
=  IN 
BH  590  T1TLE*»TITLES* (MAINOPTION 
):0N  MAINOPTION  SOSUB  630 
,ai0, 1000,1140,1200,1760, 
1800; SOTO  5S0 
m   600  : 

BC  610  REM  add  entry 
m   620  : 

«0  630  GOSUB  2580:  GOSUB  2350:  CDA 
TE*=IN»:1F  LEN(CDATE«)=0 
THEN  RETURN 
?H   640  GOSUB  25a0:PRINT"Name:";: 
MAX INPUTLENGTH=NAMELEN: aO 
SUB  i940:CNAME«=lN«! IF  IN 
«=""  THEN  RETURN 
SE  650  PRINT"PagB:  ";  :MAXINPUTLEN 
GTH=3: GOSUB  1B40: CPAeE«=M 
KI*(IN):IF  IN«=""  THEN  64 
0 
DP  660  CAPPSt=MK:I*(0):  GOSUB  2080 
: IF  CVI {CAPPS«)=0  THEN  64 
0 
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PC  iae 


JE  690 
il  700 
BC    710 


EP 

750 

IC 

760 

LO 

770 

as 

7B0 

GA 

790 

NK 

800 

K 

810 

EE   b70    CCQMPSS^-MKIteB)  :GDSUB    218 
|2>:1F    CVI  (CCDMPS*>=0    THEN 
640 

GOSUB    2580 : PR I NT " Comment : 
" ; : MAX INPUTLENGTH=CDMMENT 
LEN:  GOSUB    1940;  IF    IN*='"" 
THEN    IN«="None"    ELSE    CCDM 
MENT«=IN* 
CNEXTRECt=MKI« (0) 
PRINT:PRINT"Please   wait." 
GET#1,1:IF    CVI  (RPPi6E*)=l 
THEN    GOSUB    2690: BOTD    750 
ELSE    GET#1,2:IF    CNAME«<=R 
NftME*    THEN   GD3U8    2690: GET 
«1,2:PUT#1, INTREC:CNeXTRE 
C«=MKI«(INTREC): GOSUB   246 
0:PUT#1,2;6OTO    760 
BG   720    GET«1,2:  J=2:  I=CVI  (RNEXTRE 

CS) : IF    1=0    THEN    740 
K   730    GET#1,I:IF    CNAMe«<=RNftME* 
THEN    740    ELSE    J=I:r=cyi( 

RNEXTRECO:  IF    1=0    THEN    74 

0    ELSE    730 
K6   740    BGSUB    2690:  GET»1 ,  J  :  CNEXTR 

EC$=RNEXTREC*:LSET    RNEXTR 

EC*-MKItCINTREC):PUTItl,J 

GDSUB    2460:  PUT    ttl,INTREC 

NOFILE=0 

IF    MflINDPTI0N=2    THEN    RETU 

RN    Fl  SF    BOTO    640 

REM  edit  entry 

GOSUB  25S0:STflRTENTRY=2:L 

ASTENTRY=2: PRINT"Name: " ;  : 
MAX 1 NPUTLENGTH=NAMELEN : QD 
SUB  1940:DNAME*=IN«: IF  DN 
AMS«=""  THEN  RETURN 

CB  S20  PRINT: PRINT"Scanning  far 
entry.  "; 

IS  830  GET  #l,STftRTENTRY:  IF  LEFT 
«(RNfiMES,LEN(DNA«E«) ) =DNA 
ME*  THEN  PRINT"Found. ":PR 
INT: GOTO  850  ELSE  LflSTENT 
RY=STARTENTRY: STARTENTRY= 
CVJ (RNEXTRECSJ : IF  STARTEN 
TRY>0  THEN  830 

CH  840  PRINT"Nnt  f  ound  "  :  PRI  NT:  GO 
TO  2630 

EG  850  GET#l,STflRTENTRY:BDSUB  24 
20: GOSUB  2500 

FE  860  PRINT:  PRINT"Make  any  chan 
ges  (y/n)?  ";: GOSUB  2040: 
IF  IN-1  THEN  380 

F6  870  LASTENTRY=STARTENTRY:STAR 
TENTRY=CVI (RNEXTREC*) : IF 
STARTENTRY=0  THEN  RETURN 
ELSE  GOSUB  2580: GOTO  820 

JL  880  GOSUB  2580:  PRINT:  PRINT"Na 
me:  '■;CNAME» 

EI  890  PRINTrPRINT'-Name:  ";  :MAXIN 
PUTLENGTH=NAMELEN:  GOSUB  1 
940: IF  IN*<>""  THEN  CNAME 
«=IN« 

OC  900  GOSUB  25B0:PRINT:PRINT"Da 
te: ";CDATE«: PRINT: eOSUB  2 
350: IF  IN«<>""  THEN  CDATE 
*=IN« 

C«  910  GOSUB  2580:  PRINT:  PRINT-Pa 
ge: ";CVI <CPAGE«) : PRINTsPR 
INT"P3ge:  ■' ;  :  MAX  I NPUTLENG 
TH=3: GOSUB  1840: IF  IN>0  T 
HEN  CPA6E«=MKI*(IN) 

HP  920  GOSUB  2580:  PR  I  NT:  PR  I  NT  "Co 
mment : " ; CCOMMENT* 

KK  930  PRINT:PRINT"Camment:  ";  :MA 
X I NPUTLENGTH=COMMENTLEN:  B 
OSUB  1940: IF  IN*<>""  THEN 
CCOMMENT$=IN« 

Ot  940  GOSUB  2580:  GOSUB  2080:  BOS 
UE  2580: GOSUB  2180: GOSUB 
2580: GOSUB  2500 

SS;  950  PRINT:  PRINT"  Is  this  corre 


01 

970 

m 

980 

an 

990 

ON 

1000 

m 

1010 

KB  1020 


ct  (y/n)?  ";:GOSUB  2040:1 
F  IN=0  THEN  850 
PI  960  DELETEENTRY=STARTENTRY:60 
SUB  1070: GDSUB  690: RETURN 


REM  delete  entry 

GOBUB  25B0sDELETEENTRY=2 
: LASTENTRY=2 

PRINT-Name: " ; : MflXINPUTLE 
NGTH=NAMELEN: GOSUB  1940: 
DNAME$=IN«: IF  DNAMEt="" 
THEN  RETURN 

GET  «1,DELETEENTRY: IF  LE 
FT«(RNAME*.LEN(DNAME«) >= 
DNAME«  THEN  1040  ELSE  LA 
STENTRY=DELETEENTRY: DELE 
TEENTRY=CVI (RNEXTREC*) : I 
F  DELETEENTRY>0  THEN  102 
0 

PRINT"Nd  delete  perfctrme 
d.  ";:IF  IN*<>"N"  THEN  P 
RINT  "Entry  not  -found.": 
PRINT: GOTO  2630  ELSE  PRI 
NT; GOTO  2630 
GOSUB  2420: GOSUB  2500 
PRINT:PRINT"Delete  this 
entry  (y/n)?  ";:GOSUB  20 
40 

IF  IN=0  THEN  LASTENTRY=D 
ELETEENTRY: DELETEENTRY=C 
VI (RNEXTREC*) : IF  DELETEE 
NTRY>0  THEN  1020  ELSE  10 
30 

PRINT:PRINT"Performing  D 
elete: "; 

IF  DELETEENTRY02  THEN  1 
090  ELSE  6ET#1,2:J=CVI (R 
NEXTREC*):IF  J=0  THEN  GE 
T#1,1:LSET  RPAGE«=MKI« ( 1 
):LSET  RNEXTREC*=MKI*!0) 
:PUT  #1,  l:PRINT"Coniplete 
. " : RETURN 

GET*1,  J:PUT«1,2:GET*11,  1: 
TEMP*--^RNEXTREC«:LSET  RNE 
XTREC*=I1KI*(J)  :PUT**1,  1:G 
ET#1,J:LSET  RNEXTREC*=TE 
MP*:PUT#l,J:PRINT"Comple 
te. ": RETURN 

6ET#1 , 1 : TEMP«=RNEXTREC»; 
LSET  RNEXTREC*=MKI«(DELE 
TEENTRY ) : PUT# 1,1: GET* 1 ,  D 
ELETEENTRY: TEMP2«=RNEXTR 
EC«:LSET  RNEXTREC*=TEMP« 
: PUT#1 , DELETEENTRY 
GET*tI,LASTENTRY;LSET  RNE 
XTREC«=TEMP2«: PUT#1 , LAST 
ENTRY: PRINT"CQmplete.  ":R 
ETURN 

REM  list  entries 

GOSUB  25a0:STARTENTRY=2 
GET#1,STARTENTRY: GOSUB  2 
420:BOSUB  2500: IF  PRINTE 
R=l  THEN  GDSUB  2680 
GOSUB  22a0:STARTENTRY=CV 
1 (CNEXTREC*) : IF  STARTENT 
RYO0  AND  SERRaR=0  THEN 
1150  ELSE  GOSUB  2630: RET 
URN 

REM  search  files 


CF  1030 


FD  1040 

01  1050 


LJ  1060 


JF  1065 
01  1070 


CD  1080 


BN  1090 


Kl  1100 


OC  1110 
EE  1120 
PI  1130 
NB  1140 

KE  1150 


PE  1170 

CO  1180 

K  1190 

HE  1200 


T I TLE*=T I TLES*  <  MA I NDPT 1 0 ' 
N) : GOSUB  2580 
HC  1210  FOR  1=1  TO  NUMSEARCH-1 : P 
RINT  SPC(12) ;"(";!; ")  by 
";SEARCH*(I) : NEXT: PR  INT 
Sprn2)  :  "  (":NUMSEARCH;  " 
J  "  ;  SEAKLHS  <.  NUMSEAHCH ) 
rA    1220  PRINT:  PRINT  SPC  ( 12)  "Coram 
and : " ; : MAX INPUTLENGTH=1 : 


BDBUB  1840: IF  IN=NUMSEAR 
CH  OR  IN=0  THEN  RETURN 
OL  1230  IF  IN<1  DR  IN>NUMSEARCH- 
1  THEN  1200  ELSE  SEARCHO 
PTION=IN: TITLE*="Search 
by  "+SEARCHTITLES«(SEARC 
HDPTIDN>:ON  SEARCHOPTION 
GOSUB  1270,1370,1470,15 
80, 1670: GOTO  1200 


P«  1240 

Pft  1250 

PD  1260 

OJ  1270 


REM  : by  computer 


GDSUB  2580:CCOMPS$=HK1*( 
0):QOSUB  21B0:DCOHPS*=CC 
OMPS«:IF  Cyi (DCOMPS*>=0 
THEN  RETURN 

EL  1280  PRINT:  GDSUB  2350:  DDATE$  = 
I N* : NODATE= ( DDATE*= " " ) : I 
F  PRINTER=1  THEN  LPRINT 
TITLE* 

NC  1290  GOSUB  2580: STARTENTRY=2 

IC  1300  GET#l,STflRTENTRY:  IF  (Cyi 
(RCOMP*)  AND  CVI (DCOMPS* 
) ) =0  OR  NDDATe=0  AND  DDA 
TE*<>RDATE*  THEN  1330 

BH  1310  GOSUB  2420:  IF  PRINTER  TH 
EN  GOSUB  2680  ELSE  GOSUB 
2500 

BP  1320  GOSUB  2280:  IF  SERR0R=1  T 
HEN  PRINT:PRINT"Search  t 
erminated. ": GDSUB  2630;R 
ETURN 

If  1330  3TARTENTRY=CVI  (RNEXTREC* 
):IF  STARTENTRYO0  THEN 
1300  ELSE  GOSUB  2630: RET 
URN 


PP  1340 
OF  13S0 
FF  1360 
PF  1370 


REM  by  class 


GOSUB  25e0:CAPPS*=MKI*(0 
): GOSUB  20B0!DAPPS«=CAPP 
S*: IF  CVI fDAPPS*)=0  THEN 
RETURN 

EN  1380  PRINT:EDSUB  2350:  DDATE*" 
1  N« :  NODATE=  ( DDATE*=  "  "  )  :  I 
F  PRINTER=1  THEN  LPRINT 
TITLE* 

KE  1390  GOSUB  2580:  STARTENTRY-2 

PJ  1400  GET»1,STARTENTRY:  IF  (CVI 
(RAPP«)  AND  CVI(DAPPS$)) 
=0  OR  NODATE=0  AND  DDATE 
SORDATE*  THEN  1430 

EJ  1410  GOSUB  2420:  IF  PRINTER  TH 
EN  GOSUB  2680  ELSE  GOSUB 
2500 

BE  1420  GOSUB  2280:  IF  SERR0R=1  T 
HEN  PRINT:PRINT"Sear(ih  t 
erminated. ": GDSUB  2630: R 
ETURN 

LD  1430  STARTENTRY=CVI (RNEXTREC* 
):IF  STARTENTRYO0  THEN 
1400  ELSE  GOSUB  2630: RET 
URN 


PB  1440 
6£  1450 

PH  1460 
ON  1470 


REM  :by  computer  and  cla 

se 


GOSUB  2580:CCOMPSt=MKI*( 
0 ) : GOSUB  2180:DCOMPS*=CC 
OMPS«:IF  CVI (DCOMPS*) =0 
THEN  RETURN 

Of  1480  GOSUB  2580:CAPPS«=MKI*(0 
): GOSUB  20a0:DAPPS»=CAPP 
S*: IF  CVI CDAPPS*)=0  THEN 
RETURN 

£C  1490  PRINT-GDSUS  2350:DDATE«= 
I N* : NDDATE=  <  DDATE«= " " ) ;  I 
F  PRINTER=1  THEN  LPRINT 
TITLE* 

m    1500  GDSUB  25a0:STARTENTRY=2 

aa  1510  GET#i,STARTENTRY:  IF  (CVI 
(RAPP*)  AND  CVKDAPPS*)) 
=0  OR  (CVI (DCOMPS*)  AND 
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CVI <RCOMP*) )=0  OR  NODATE 

=0  AND  DDftTE«<>RDATE«  TH 

EN  1540 
CO  1S20  BDSUB  2420:  IF  PRINTER  TH 

EN  GOSUB  26B0  ELSE  GOSUB 
2500 
BS  1530  GOSUB  22B0:IF  SERR0R=1  T 

HEN  PRINT: PRINT"Search  t 

erminated. ": GOSUB  2630: R 

ETURN 
C«  1540  STftRTENTRV=Cyi(RNEXTReCS 

):IF  STftRTENTRY<>0  THEN 

1510  ELSE  QOSUB  2630: RET 

URN 


Pe  1550 
H6  1560 
BN  1570 
FK  1580 


REM  :bv  date 


GOSUB  2590:  PRINT"  Issue?  " 
;: GOSUB  2350: DDATE*=IN$: 
IF  DDftTE«=""  THEN  RETURN 

KE  1590  IF  PRINTER  THEN  LPRINT  T 
ITLE« 

DP  1600  GDSUB  23a0:STARTENTRY=2 

E6  1610  GET#1,STARTENTRY:  IF  RDflT 
E*=DDATe*  THEN  BOSUB  242 
0:IF  PRINTER  THEN  GOSUB 
2680  ELSE  GOSUB  2500 

BF  1620  GOSUB  2280: IF  SERR0R=1  T 
HEN  PRINT: PRINT"Search  t 
Brminated."! BOSUB  2630:R 
ETURN 

SK  1630  STARTENTRY=CVI (RNEXTREC* 
) : IF  BTARTENTRY<  >0  THEN 
1610  ELSE  BOSUB  2630: RET 
URN 


PF  1640 
m  1650 
QL  1660 
ftC  1670 


REM  :by  title 


BOSUB  25B0:PRINT"Name: "; 

: MAX INPUTLENGTH=NftMELENi 

GOSUB  1 940 : DNAME»= I N« : I F 

DNfiME«=""  THEN  RETURN 

Ffl  16B0  GOSUB  2350: DDATE»=IN«:  NO 
DATE= ( DDATE*= " " )  :  I F  PR I N 
TER  THEN  LPRINT  TITLE* 

m    1690  nnSUB  25B0:STflRTENTRY=2 

LH  1700  GET#l,SrARTENTRY: IF  LEFT 
*(RNAME*,LEN(DNAME«) ) =DN 
AME*  AND  NODATE  OR  DDATE 
«=RDATE»  THEN  GOSUB  2420 
:IF  PRINTER  THEN  BDSUB  2 
680  ELSE  BDSUB  2500 

BE  1710  GOSUB  2230:  IF  SERR0R=1  T 
HEN  PRINT:PRlNT"Search  t 
erminated. ": GOSUB  2630: R 
ETURN 

BL  1720  STARTENTRY=CVI (RNEXTRECS 
>:IF  STARTENTRYO0  THEN 
1700  ELSE  GOSUB  2630: RET 
URN 


REM  change  printer  mndes 

PR I NTER= 1-PRINTER:RETURN 

REM  quit 

CLS:CL0SE«1:END 

REM  input  number 

IN*-"": IN=POS(0> : PRINT  S 
PACE* C79-IN) ;; LOCATE  ,IN 
COLOR  0,7:PRINT"  " ; : COLO 
R  7,0: LOCATE  ,POS(0)-1 
A«=INKEY*:IF  LEN<A*)<>1 
THEN  1860 

INPUTLENGTH=LEN(IN«) : IF 
A»=CHR«<B)  AND  INPUTLENG 
TH  THEN  LOCATE  ,POS<0)-1 
:  PRINT"  '■;:  LOCATE  ,  PDS  ( 
0 ) -2 : I N«=LEFT* ( I N* , I NPUT 
LENBTH-1):G0T0  1850 


ft 

1730 

HI 

1740 

DK 

1750 

QJ 

1760 

«A 

1770 

EP 

1780 

fte 

1790 

FH 

1800 

PS 

1S10 

go 

1820 

PS 

1830 

DE 

1840 

10 

1850 

OL 

1860 

EC 

1B70 

Lfl  1BB0  IF  A»=CHR*(13)  THEN  PR IN 
T IN=VAL(IN«) ;RETURN 

m  1890  IF  A«<"0"  OR  A«>"9"  OR  I 
NPUTLENGTH=MAX INPUTLEN6T 
H  THEN  1860 

PE  1900  PRINT  A«;  ;  IN*=IN*+A»:B0T 
0  1850 

PC  1910  : 

UN  1920  REM  input  al  phanumeri  cs 

8!  1930  : 

K  1940  IN*="":IN=POS(0) :PRINT  S 
PACE«<79-IN) ;:LOCATE,  IN 

IS  1950  COLOR  0,7:  PRINT"  "  ;  :  COLO 
R  7,0:LOCATE  ,POS<0)-1 

FB  1960  A*=INKEY*:IF  LEN(A*)<>1 
THEN  1960 

NC  1970  INPUTLENGTH=LeN(IN«):IF 
A«=CHR*(8)  AND  INPUTLENG 
TH  THEN  LOCATE  ,POS(0)-1 
iPRINT"  ■■;:LOCATE  ,POS( 
0) -2: IN*=LEFT4 ( IN*, INPUT 
LENGTH-1) :GDTO  1930 

J6  1980  IF  A*=CHR«(13)  THEN  PR  IN 
T"  ": RETURN 

LE  1990  IF  A*<"  "  OR  INPUTLENGTH 
=MAXINPUTLENBTH  THEN  196 

0 
BE  2000  PRINT  A«;  :  IN*=IN«+A«:  GOT 

0  1950 
OB  2010  : 

a   2020  REM  input  yes/no 
OH  2030  : 

Pfl  2040  MAXINPUTLENBTH=3:CC0L=P0 
S(0) : PRINT: CR0W=CSRLIN-1 
:  LOCATE  CROW,  CCDL-.  GOSUB 
1940: IN*=CHR*(ASC(LEFT»( 
IN*+"  ", 1) )  AND  223) : IF 
IN*="Y"  OR  IN*-"N"  THEN 
IN=-(IN*="Y") : RETURN  ELS 
E  LOCATE  CROW, CCOL: GOTO 
2040 

PK  2050  : 

[N  2060  REM  input  application 

FD  2070  : 

Cfl  2080  TEMP=CVI (CAPPS*) 

NB  2090  GOSUB  2530: FDR  1=1  TO  NU 
MAPPS: PRINT  TABC12);I;") 
"jsIF  (CVKCAPPS*)  AND 
2''(I-l>)>0  THEN  COLOR  0, 
7 

[I  2100  PRINT  APPB*  C  I )  :  COLOR  7,0 
:NEXT 

OF  2110  LOCATE  20,  12:  PRINT"Sel  ec 
t/deselect  from  the  abov 
e: "; : MAXINPUTLENGTH=2:  GO 
SUB  1840; IF  IN*=""  THEN 
RETURN 

PB  2120  IF  IN>NUMAPPS  OR  IN=0  TH 
EN  2110 

01  2130  IF  (2-"(IN-l)  AND  TEMP>  >0 
THEN  TEMP=TEMP  AND  NOT ( 
2"(IN-1))  ELSE  TEMP=TEMP 
OR  2'-(IN-l) 

FF  2140  CAPPS«=MKI*  (TEMP):  GOTO  2 
090 

PP  2150  : 

EH  2160  REM  input  computer 

PF  2170  : 

JL  2100  TEMP=CVI  (CC0MPS4) 

EA  2190  GOSUB  2580:  FOR  1  =  1  TO  NU 
MCOMPS: PRINT  TAB<12>;I;" 
)  ";:IF  (CVI (CCOMPS*)  AN 
D  2'-tI-l)')>0  THEN  COLOR 
0,7 

ftB  2200  PRINT  COMPS* < n : COLOR  7, 
0:NEXT 

OB  2210  LOCATE  20,  12:  PRINT"Sel  ec 
t /deselect  from  the  abov 
b: " ; : MAX INPUTLEN6TH=2:  QD 
SUB  1 840: IF  IN*=""  THEN 
RETURN 

AB  2220  IF  IN>NUMCOMPS  OR  IN=0  T 
HEN  2210 


IB  2230  IF  (2''(IN-1!  AND  TEMP)  >0 
THEN  TEMP=TEMP  AND  NOT < 

2-^(IN-n)  ELSE  TEMP=2'^<I 

N-1)  OR  TEMP 
CP  2240  CCDMPB*=MKI*  (TEMP)  :  GOTO 

2190 
PB  2250  : 
HJ  2260 
PH  2270 
US  2280 


REM  check  -for  key  press 


SERROR=0: TEMP4=INKEY*: IF 
TEMP»=""  THEN  RETURN 
PS  2790  TF  TFMP*="  "  THEN  WHILE 

INKtY*'.;-"  ":  WEND:  REl  URN 
OS  2300  IF  TEMP«=CHR«(13)  AND  PR 

INTER=0  THEN  SERR0R=1 

RETURN 


IF  2310 
PK  2320 
KE  2330 

PA  2340 
m   2350 


REM  input  date,  store  in 
in* 


PRINT"Date  (Mpn-YR) : " ; : M 
AX INPUTLENGTH=6: GOSUB  19 
40: IF  IN*=""  THEN  RETURN 

JI  2360  F=0:FOR  IN=1  TO  12:  IF  LE 
FT*(IN«,3)=M0NTHS*£IN)  T 
HEN  IN»=MONTHS«(IN)+RIGH 
T«(IN«,3):F=1 

PI  2370  NEXT:  IF  F=l  AND  MIDtdN* 
,4,1)-"  "  THEN  IN»=IN*+S 
PACE* (4) : RETURN 

IE  23S0  PRINT"Date  was  not  the  c 
orrect  format:  use  Mon-Y 
R;  i.e.,  Jan  85":PRINT:6 
QTO  2350 


5P  2390 
FD  2400 


PJ  2410 
HK  2420 


PP  2430 
OB  2440 


PF  2450 
DJ  2460 


OL  2470 
Si  2480 
AB  2490 
LP  2500 


REM  transfer  from   record 
strings  to  current  stri 
ngs 

CNEXTREC«=RNEXTREC4: CAPP 
S«=R APP* : CCaMPS«=RC0MP* : 
CNAMEt=RNAME* : CDATE«=RDA 
TE* : CPAGE«=RPAGE« : CCOMME 
NT«=RCOMMENT« : RETURN 

REM  transfer  from  curren 
t  strings  to  record  stri 

ngs 

LSET  RNEXTREC*=CNEXTREC« 
: LSET  RAPP*=CAPPS* : LSET 
RCOMP*=CCOMPS»:LSET  RNAM 
E«=CNAME«:LSET  RDATE«=CD 
ATE*: LSET  RPAGE*=CPAGE«: 
LSET  RcaMMENT«=CCOMMENT« 
: RETURN 

REM  print  current  data 


PRINT"Narre:  " ;  CNAME* :  PRIN 
T"Date: ";CDATE*; "  /  page 
";CVI (CPAGE*) :PRINT"Comm 
ent : " ; CCOMMENT* 

Of  2510  PRINT"Class:  ";  ;FOR  1=1  T 
0  NUMAPPS:IF  (2-^(1-1)  AN 
D  CVKCAPPS*)  )  >0  THEN  PR 
INT  "  ";APPSt(I);", '■; 

HE  2S20  NEXT: LOCATE  ,PDS(0)-1:PR 
INT"  " 

FO  2530  PRINT"CDmputers: "; :FOR  I 
=  1  TO  NUMCOMPS:IF  C2-^(I- 
1)  AND  CVI (CCOMPS*) ) >0  T 
HEN  PRINT  "  ";COMPS«<I); 

OP  2540  NEXT: LOCATE  ,POS(0)-1:PR 
INT"  ": PRINT: RETURN 

PH  2550  : 

BO  2560  REM  clear  the  screen 

8N  2570  : 

HH   2580    CLS:  LOCATE    1 ,  (40-LEN  (TIT 
LE»)/2) :PRINT    TITLE«:LOC 
ATE    1,1: IF    PRINTER    THEN 
PR INT "Printer    an" 
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Hfl  2590 
n  2600 
HO  2610 
Pft  2620 
KB  2630 


LOCATE  3,1: RETURN 

REM  press  return  prompt 

SERROR=0 : PR I NT " Pr  ess  EMT 
ER:  '■;  :MAXINPUTLeNGTH=0:G 
OSUB  1 940 ! I F  ftSC  <  LEFT* ( I 
N»+"  ",!))  AND  223«=ASC(" 
D")  THEN  SERRQRal 
RETURN 


REM  output  to  printer 

LPRINT  CNAME«;TAB(50);CD 
ATE»;"  /  page: "(CVI (CPAG 
E»): RETURN 

REM  allocate  a  new  recor 
d 

GET  «1, 1:INTREC=CVI (RNEX 
TReC«):IF  INTRECO0  THEN 

2760 
INTREC=CVI (RPAGE*) : INTRE 
C=INTREC+i;LSET  RPAGE«=M 
Kr«(INTREC) :PUT«1, 1 
RETURN  :REM  variable  INT 
REC  holds  the  place  of  t 
he  next  blank  record 
REM  use  this  code  if  the 

there  have  been  deleted 

records 
GETItl ,  INTREC:TEMP«=RNEXT 
REC«:GET#1, llLSET  RNEXTR 
EC«=TEMP*:PUT#1, 1 
RETURN 

REM  Error  handling  routi 
nes 

IF  ERR=53  THEN  N0FILE=1: 

RESUME  420 

ON  ERROR  GOTO  0: END 


Program  2:  Magazine 
Indexer  for  Apple  li 

Version  by  Todd  Koumrian 

For  instructions  on  entering  this  listing,  pleas© 
refer  to  "COMPUTE! 's  Guide  to  Typing  In 
Programs"  in  this  Issue  of  computei. 

ff    30    ! 

C2  40    REM  TITLE   PflSE 

IS  41    : 

4£  50    HOME 

«  60  VTAB  7:  HTAB  12;  PRINT  "TH 
E  INDEX  PROSRAI^" 

«  90  VTAB  11:  HTAB  12:  PRINT  "O 
NE  MOMENT  PLEASE" 

19  99  : 

E»  100  REM  INITIALIZATION 

AF  101  : 

BE  110  READ  N1,N0,NC,NA,NK,NS 

24  120  CR»  =  CHR*  <13):DL*  =  CHR 
«  (B)  !D«  =  CHR*  (4):  I*  ■= 
CHR*  <9)sN2  =  13:N3  =  N2 
+  41:N6  =  N3  +  7;N5  =  N6 
+  6:UL*  »  CHR*  (95) 

il  130  FL  =  100:  ED  =  2:PP  =  0:Z» 
"  "INDEX1.DAT" 

M  140  MN  =  N3  -  N2  -  1 :  MC  =  FL 
-  N5:ML  =  1:LF*  =  CHR*  (1 
0) 

K  150  DIM  I«(Ni) ,SS*(N0) ,C«tNC) 
, A* (NA) , TK» (NK) , TS* (NS) , M 
«(11)  ,Lr.(  1500),  987.(9  J 

i2  160  FDR  I  =  0  TO  Nl:  READ  I*( 
I ) :  NEXT 

D3  170  FOR  I  =  0  TO  N0:  READ  SS« 
(I):  NEXT  :  FDR  I  =  0  TO 


JE 

2640 

BJ 

2650 

OL 

2660 

BP 

2670 

IN 

2680 

AF 

2690 

BJ 

2700 

PP 

2710 

GK 

2720 

DP 

2730 

LB 

2740 

FF 

2750 

FP 

2760 

SP 

2770 

f£ 

2780 

GP 

2790 

PD 

2800 

3B 

2B10 

KG 

2820 

NC:  READ  C*(I):  NEXT 
"  100  FOR  I  =  0  TO  NA:  READ  A* ( 

I ) :  NEXT  :  FOR  I  "  0  TO  N 

K;  READ  TK«(I):  NEXT 
FE  190  FOR  I  =  0  TO  NS:  READ  TS* 

< I ) :  NEXT  :  FOR  I  -  0  TO 

11:  READ  M*(I>!  NEXT 
78  191  FOR  I  =  773  TO  799:  READ 

A;  POKE  I, A:  NEXT 
tF  198  PRINT  :  HTAB  10 
Cf  199  PRINT  "IS  THIS  A  COLD  STA 

RT7  ";:ML  =  3:  QOSUB  1740 

:  IF  ID  THEN  250 
II  200  PRINT  D*"OPEN  INDEX  POINT 

ERS"::  PRINT  D«"READ  IN0E 

X  POINTERS":  INPUT  RL.NF 
38  210  FOR  I  =  1  TO  NF:  INPUT  L7. 

(Ds  NEXT  :  PRINT  D*"CLOS 

E  INDEX  POINTERS" 
M  220  PRINT  D«"OPEN  "Z*",L"FL: 

PRINT  D*" CLOSE" 
B4  239  : 

54  240  REM  MAIN  MENU 
Bfl  241  i 
Bl  250  IF  NF  =  0  THEN  IN  =  1:  60 

TO  290 
f!  260  JK  =  0:  QOSUB  2270:  FOR  I 

-  0  TD  Nl:  HTAB  15:  PRIN 
T  I  +  1")  "I«(I):  NEXT 

AS  270  PRINT  :  HTAB  15;  PRINT  "C 

OMMAND:";:  QOSUB  1570 
»   280  IF  IN  <  1  OR  IN  >  Nl  +  1 

THEN  250 
F8  290  JK  =  IN:  OK  IN  GOSUB  310, 

530,850,990, 1080,1510, 153 

0:  DDTO  250 
U   299  : 

4F  300  REM  ADD  DATA 
81  301  : 
II  310  SD5UB  2270:  GOSUB  2090:  P 

RINT  :DT*  =  Fl*s  IF  S  THE 

N  RETURN 
DE  320  GOSUB  2270:  PRINT  "NAME:  " 

;:ML  -  MN:  QOSUB  1650: AR* 

-  IN*:  IF  IN*  ■=  ""  THEN 
RETURN 

17  330  PRINT  "PAGE:";:ML  =  3 
SUB  1570: PG  =  IN: 
=  ""  THEN  320 

50  340  GOSUB  2270:  GOSUB  1820:  I 

F  S  THEN  320 
57  350  GOSUB  2270:  GOSUB  1910:  I 

F  S  THEN  320 
IB  360  GOSUB  2270:  PRINT 

Ts"; :ML 
IF  IN* 

NONE" 
El  370  CM*  =  IN* 
77  3B0  T0»  =  STR«  (P1);T1*  s.  STR 

*  (CD  :T6*  -  STR*  (PG) 
D2  390  GOSUB  2000 

51  400  I  »  1;  PRINT  :  PRINT  "SEA 

RCHINB  FOR  INSERTION  POIN 

T" 
n   410  IF  LX(I)  =    0    THEN  450 
K   420  FP  =  LX(I);SY  =  N2:  GOSUB 

2 
as  425  INPUT  A*:  IF  AR*  >  A*  THE 

N  I  »=  I  +  l!  GOTO  410 
07  430  GOSUB  2020:  PRINT  "CONDUC 

TINB  INSERT:"; 
?t  440  FOR  J  =  NF  +  1  TO  I  STEP 

-  1:LX<J  +  1)  =  LX!J) :  NE 

XT  :  PRINT  "COMPLETE" 
71  450  GOSUB  2020  :Ly.  (I)  -  RL  +  2 
F2  460  FP  =  LX(I):  GOSUB  2000:  P 

RINT  D*"WRITE"Z*",R"FP:  P 

RINT  T0*CR«T1*CR*; 
it   470  PRINT  D*"WRITE"Z*",R"FP", 

B"N2:  PRINT  AR*CR»5 
B6  480  PRINT  D*"WRITE"Z*"  ,  R"FP"  , 

B"N3:  PRINT  DT*CR«; :  PRIN 

T  D*"WRITE"Z«",R"FP",B"N6 

S  PRINT  T6»CR»! 


GO 
IF  IN* 


"COMMEN 


MC:  GOSUB  1650: 
""  THEN  IN*  -  " 


24  490  PRINT  0*"WRITe"Z*",R"FP" , 

B"N5:  PRINT  CM«CR«; 
i!  500  GOSUB  2020  :NF  =  NF  +  1 :  RL 
"  RL  +  1:  IF  JK  =  ED  THE 
N  RETURN 
93  310  GOTO  320 
D5  519  : 

01  520  REM  EDIT 
67  521  : 

Bl  530  QOSUB  2270:  L  -  1:  PRINT  " 

NftME:";:ML  =  MN:  SOSUB  16 

50:T4»  =■  IN*:  IF  IN*  =•  "  " 

THEN  RETURN 

C«  540  VTAB  6:  PRINT  "SCANNING  F 

OR  FILE:":  GOSUB  2000:  FO 

R  I  =  L  TO  NF:FM  =  I ;  FP  ■= 

LV.  { I ) 

2A  550  BY  =  N2:  GOSUB  2:  INPUT  A 

R* 
27  560  IF  LEFT*  CAR*,  LEN  (T4*)  ) 

=  T4»  THEN  I  =  IE  +  4 

Dl  570  NEXT  :  GOSUB  2020:  IF  I  < 

IE  +  4  THEN  VTAB  6:  HTAB 

19:  PRINT  "NOT  FOUND":  P 

RINT  :  SOTO  2320 

FB  580  VTAB  6:  HTAB  19:  PRINT  "F 

OUND" 
Efl  590  I  =  FM:  GOSUB  2000:  BOSUB 
2160:  GOSUB  2020:  PRINT 
:  GOSUB  2200 
M   600  PRINT  :  PRINT  "MAKE  ANY  C 
HANGE5?  ";:  GOSUB  1740!  I 
F  ID  THEN  630 
C8  610  IF  FM  =  NF  THEN  RETURN 
J»  620  L  =  FM  +  1:  GOSUB  2270:  G 

DTO  540 
Ci  630  GOSUB  2270:  PRINT  ;  PRINT 

"NAME: "AR* 
IC  640  PRINT  :  PRINT  "NAME:";:  ML 
=  MN:  GOSUB  1650:  IF  IN* 
=  ""  THEN  IN*  =  AR* 
D7  650  T4«  =  IN* 

M  660  GOSUB  2270:  PRINT  "DATE: " 
DT»:  PRINT  :  BOSUB  2090: T 
5*  =  IN*:  IF  IN*  =  ""  THE 
N  T5*  =  DT» 
31  670  BOSUB  2270:  PRINT  :  PRINT 
"PABE:"P6:  PRINT  :  PRINT 
"PAGE:";:ML  =  3:  GOSUB  1 
570!  IF  IN  -  0  THEN  IN  = 
PQ 
IE  680  T6*  "  STR*  (IN) 
IB  690  GOSUB  2270:  PRINT  "COMMEN 

T: "CM* 
C5  700  PRINT  :  PRINT  "COMMENT:"; 
!ML  =  MC:  GOSUB  1650:  IF 
IN*  =  ""  THEN  IN*  =  CM* 


11 

710 

T7«  "    IN* 

C3 

720 

T8  =  Tl:  GDSUB  2270:  GOSU 
B  1820:  T8  ■=  0 

S3 

730 

T0«  =  STR*  (PI):  IF  IN*  = 
""  THEN  T0*  =  STR*  (Tl) 

FS 

740 

Tl  =  VAL  (T0*) :  IF  S  =  1 
AND  IN*  <  >  ""  THEN  720 

2D 

750 

TB  =  T2:  GDSUB  2270:  GOSU 
B  1910: TB  =  0!T1»  =  STR* 
(CI) 

!l 

760 

IF  IN*  =  ""  THEN  Tl*  =  ST 
R*  (T2) 

2f 

770 

T2  =  VAL  (Tl*):  IF  S  =  1 
AND  IN*  <  >    •■"    THEN  750 

f< 

780 

GOSUB  2270 

M 

790 

PRINT  "NAME;"T4«:  PRINT  " 
DATE: "T5»"  /  PAGE:  "T6*: 
PRINT  "COMMENT: "T7*:T3  = 
T! 

CD 

800 

GDSUB  2210 

EA 

810 

PRINT  :  PRINT  "IS  THIS  CO 
RRECT?  ";:  GOSUB  1740:  IF 
ID  -  0  THEN  590 

EC 

820 

PI  =  VAL  (T0*):C1  =  VAL  ( 
T1*):AR*  =  T4*:DT*  =  T5«: 

PB  =  VAL  (T6*):CM«  =  T7* 
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Software  Discounters   i^do.a^ 

Of    /\ll  I  wllCcI         •Free  shipping  on  orders  over 

For  Orders  Only— 1-800-225-7638    $100  in  continental  USA 

PA  Orders— 1-800-223-7784  •  No  surcharge  for  VISA/MasterCard 
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YOUR  ENTERTAINIVtENT  SOFTWARE  SPECIALIST! 


IBM  SOFTWARE 


ACCOLAOE 

UsantsQolf  (30 

PSI'5  Trading  (24 

ACnmiON 

Alltr'EgolMorF)  (30 
Hackari  (24 

MualcSludIo  (30 

JIHTWORX 

Brldga4.0  (16 

Strip  Pokar  (25 

Data  Disk  «1  Fsmala  (14 
Data  Disk  «2  Mala  (14 
DataDlak*3F«mal<  (14 
AVALQN  HILL 
Supar Bowl  Sunday  (21 
S.B.S.  Champs  Dlak  (14 
S.B.S. 'SSTeamOlik  (14 
BLUE  CHIP 

Mllllonairs  (36 

BRODERBUND 
Anclar<lArlQl  War      (27 
Caimen  Sandl«go 

IWorldl  (25 

Karalaka  121 

Prim  Shop  (36 

P.S.  Companion  (32 

P.S.  Graphics 

Library  i1  or  *2  121  Ea. 

Toy  Stiop (44 

CENTRAL  POINT 
Copy  2  .  .    .(23 

DATAJAST 

Commando  124 

TagTaamWrestlInd    124 
ECeCTflOW/C  ARTS 
Sollwtit  Clajslc  Sarlas; 
Archon  (9.8S 

Mind  Mirror  1S.88 

Music  Const.  Sal  19.66 
OneonOna  19.66 

Plnball  Const  Sat       (9.M 
S«vsnCltl*saDkJ       19.38 
Supar  Bouldar  Dash   19.86 
ELECTRONIC  ARTS 
Amnasia  129 

Chaaimaatar  2000  126 
Grand  Slam  Bridga  139 
Maka  Your  Own 

Murdar  Party  126 

Scrabbia  126 

Sisrilsal  1  132 

Slarlllglll  132 

World  Tour  Goll  132 

Epyx 

CraalsACalandar  119 
Daatroyar  (24 

Summsr  Qamas  2  (24 
World  Qamas  (24 

World  Karat*  Champ.(19 
GAMESTAR 

Champ.  Baisball  (24 
Champ.  Baskalball  124 
QFLCh.  Football  124 

HJ  TECH  EXPRESSIONS 


Hitchhikers  Culde 
Hollywood  HiJIni   . 
Laalhar  Goddesses 
Moonmlflt 

Zork  1 

Zork  Trilogy 
MICROLEAauE 
Basaball 

*Boi  Scora/SIats 
Complla 


(24 
.124 

(24 
.124 
.124 

144 

124 
-116 


'Ganaral  Mgr.JOwnerl24 
*198S  Team  Disk  (12 
*198STaam  Diak         (12 

Add-on  programs.' 
MICROPROSE 
Crusada  In  Europe      124 
F'15  Strike  Eagle         121 
Silent  Service  .121 

MINDSCAPE 
American  Challenge  .124 
Balance  o1  Power    ..130 
BopliWrealle  119 

DeierKler  of  the  Crown  124 
119 
124 


Inllllretor 

Sub  Mission 

SSI 

Battle  of  Ar^tletam 

Gettysburg  .    . 

Ksmptgruppe 

Rings  olZlllln 

RDadwar2000 

Shard  of  Spring 

SIERRA 

Black  Cauldron 

King's  Quest 

1.2,  or  3 
Space  Quest 


130 
.136 
(36 
124 
124 
$24 


(32  Ea. 

(30 


SPECTRUM  HOLOBYTE 


Gato 

.124 

OrtJlter 

(27 

Wilderness 

(30 

SPRINGBOARD 

Cerlllicsle  Makef 
CM.  Library  at 
Newsroom 
Newsroom  Pro 
N.R.  Clip  Art  »1 
N.R.CIIpAn«2 
N.R.  Clip  Art  «3 
P.S.  Graphics 

Expandei 
SUBLOCtC 
Jel 

TELARIUM 
Amazon 


136 
121 
(36 
(89 
(19 
(24 
(19 


.ta.ae 


COMMODORE  64  &  128 


Award  Ware 
Card  Ware 
HaanWara 
Party  Ware 
IHFOCOM 
Ballyhoo 


(9.68 
16.68 
(«.66 

19.68 

124 


Dragonworld    19.66 

Fahrenheit  451  19.68 

Nine  Princes  19.86 

Perry  Mason  19.66 

RendezvouB  (9. 58 

UNISON  WORLD 
Newamaater  159 

PrInlmaatarPlus    .     136 
AnOallaryl.        ..     119 

AnGallarY2 119 

VALUE  TIME 
ArlLlbniyl  or2    18.88  Ea. 
Citandara  & 

Stallonery  16.86 

Greeting  Cards         16.66 
Signs  &  Banners       16.88 


(14 

(25 


Call 


ACCESS 

Leader  Board  Goll  125 
L.6.  Exec.  Toum.  Disk  (14 
L.B.  Famous 

Course  Disk 
Tenth  Frame 
World  Class 

Leader  Board 
ACCOLADE 

Ace  of  Aces  (19 

Fight  NIghl  (19 

Hardball  (19 

Killed  Unlll  Dead         (19 
ACTION  SOFT 
UpParlscope!  (19 

ACTIVISION 

Aliens  123 

Gememaker  125 

Gsmemsker  Library  Disks 

Sports  or  Sel.  Fl,  11*  Ea. 
Greeting  Card  Mekar  (23 
Hacker  2  123 

Music  Studio  123 

Portal  125 

Shanghai  123 

Transtormara  123 

ARTWORX 

Bridge  4.0  116 

Highland  Games  (9.68 
Police  Cadet  (9.6B 

Sirip  Poker  121 

Data  Disk  «1  Female  114 
Oala  Disk  •2Msle  114 
OataDlak  (3  Female  114 
Thai  Boning  19.86 

AVALON  HILL 
Super  Sunday  (21 

S,B,S.  1965  Team  Disk  114 
S.B.S.  Champs  Disk  114 
AVANTAGE 

Spy  vs.  Spy  1  »  2  18.86 
BfHKELfy  SOFTWQRKS 
G  EOS  64  139 

GEOSaiJd-ons  Call 

BflODEPBUNO 
Print  Shop  126 

P.S.  Graphics  Library 

•  1.  •2  or  13  116  Ea. 
Toy  Shop  139 

DATA  EAST 

Breakthru  123 

Commando  123 

Eiprasa  Raider  123 

Ikart  Warriors  123 

Tag  Team  Wrestling  123 
ELECTRONIC  ARTS 
Sollwarv  CUiSic  Ser/es: 
Archan2:  Adept  19.68 
Heart  ol  Africa  19.88 
Msll  Order  Monslers  tS.68 
Movie  Maker  $9.88 

Music  Conat.  Sal  $9.88 
One. on. One  $9.68 

Plnball  Const.  Sel  $9.88 
Seven  Cities  Colli  (9.68 
Sky  1 01  $9.68 

Super  Bouklef  Dash  (9.88 
Touchdown  FoottMll  19.88 
Et.ECTftOWIC  ARTS 
Amertca'i  Cup  Sailing  (23 


Arctic  Foi $23 

Bard's  Tale  1  or  2  (26  Ea. 
Cheasmasler2000  $26 
MartleMednesi  (23 
Pegasus  (25 

StarFleell  (26 

Worlfi  Tour  Colt  (26 

EPrx 

Champ.  Wrestling  123 
Create  A  Calendar  119 
Destroyer  123 

Fast  Load  (cart)  123 

SummarGamesI  114 
Summer  Games  2  123 
Super  Cycle  123 

World  Ketale  (17.95 

World  Games  123 

FIREBIRD 
Elite  119 

Slargllder  125 

The  Pawn  (25 

Tracker  . .      .125 

GAMESTAR 

Champ.  Basaball  (23 
Champ.  Basketball  $23 
GFL  Champ.  Foolball(23 
INFOCOM 

Hitchhiker's  Guide  (23 
Hollywood  HIJIni  (23 
LealharOoddssses  (23 
Trinity  126  (25 

Zork  Trilogy  (39 

MASTEflTflOWfC 
Bounder  16.68 

Captain  Zap  16.86 

Knight  Games  18.66 

Nlnjs  16.68 

Pro  Goll  16,68 

Shogun  18.88 

Vegas  Poker  & 

Blacklack  (6.88 

UICROPROSE 
Gunship  (23 

Silent  Service  (23 

MINDSCAPE 
American  Challenge  (19 
Bop  &  Wrestle  (19 

Fist  (19 

UchiMalB  .     (19 

ORIGIN 

Autodual  (32 

Moeblus  (26 

Ultima  4  (39 

5PH1WGB0AWD 
Certlllcate  Maker         (33 
CM.  Library  at  (23 

Newsroom  (33 

N.R.  Clip  An  «1  or  (3  (19 
N.R.  Clip  Art  «2  (25 

SSI 

Qallysburg  (37 

Phantasle  2  (25 

Rings  olZillln  (25 

Shard  ol  Spring  .  (25 
Wizard's  Crown  (25 

SUBLOaiC 

Baaeball  (32 

Flight  Simulator  2  (32 
F.S.  Scenery  Disks  $14  Ea. 
Football  (28 

Jet  (26 


APPLE  II  SERIES 


ACCESS 

Triple  Pack:  BH1.  BH2. 

Raid  Over  Moscow  (14 
ACCOLADE 

Fight  Nlflhl (19 

Hardball (19 

ACrmSION 
Alter  Ego  (Male  or 

Female)  $30 

Gememaker  Llbrery  Disks; 

Scl-FI (16 

Sports  118 

Gsmemsker  $30 

Greeting  Card  Maker  $24 
Hacker  2  124 

Murder  on  the 

Mississippi  124 

Music  StudloGS     .   Call 

PalntworksGS  (47 

Portal    127 

Shanghai 124 

Shanghai  GS  Call 

Taaa  Times  GS  .      .127 
ARTWORX 

Bridge  4.0  116 

Internsllonal  Hockey  (19 
Strip  Poker  (19 

Data  Disk  <r1  (Female)(14 
DalBDIskl»2|Male|     114 
AVALONWU. 
Dr.  Rulh  (19 

Super  Sunday  (21 

BANTAM 

Wall  Disney  Series: 
Card  »  Party  Shop  (24 
Comic  Strip  Maker  (24 
BAUDVILLe 

Award  Maker  (24 

Video  Vegai  119 

eRODEflBUND 
Alrhearl  121 

Animate  |12aK|  142 

Carmen  San  Diego 

USA  (27 

World  .  (24 

DauleDraw(126K)      (34 
Fantavlslon  (30 

Karalaka  (21 

Prim  Shop  (Enhanced)  (27 
Print  Shop  Compenlon  (23 
P.S.  Graphics  Liprery 
•1.2or3  114Ea. 


(30 
(26 


Europe  Ablaze 
Lords  of  Conquest 
Meke  Your  Own 

Murder  Party  (26 

Marble  Madness         (23 

Mind  Mirror $9.68 

Moeblua 138 

Movie  Maker  (9.88 

Music  Conal.  Set  (9.68 
Music  Const.  Set  GS  (32 
Ogre    .  (25 

OnsonOne  19.68 

Pegasus  (28 

Plnuall  Const  Sal  19.88 
Ring  Quasi  128 

Russis  (The  C  rest  War)  (26 
Scrabble  126 

Seven  Cities  of  Gold  $9.88 
Skyloi  $9.68 

StarFleell  132 

Super  Boulder  Dash  19.88 
Ulllme4  $36 

EPYX 

Chsmp.  Wr ng        $23 

Create  A  Calendar  $19 
Destroyer  GS  Call 

Summer  Games  2  $23 
World  Games  OS  Call 
WlnterGamas    .  $23 

World  Games  123 

World  Karate  Champ  119 
HITECH  EXPRESSIONS 


Award  Ware 

Card  Ware 

Heart  Ware 

Party  Ware 

INFOCOM 

Hitchhiker's  Guide 

Hollywood  HlJIni 

Leather  Goddesses 

Moonmlst 

Trinity 

Zork  Trilogy 

M/CffOLEAGUE 

Baseball 

Box  Score  Stats 


19.86 
18.86 
(8.86 
(9.88 

124 
(24 
(24 

(24 
(24 
144 

124 
114 


Toy  Shop 
CENTRAL  POINT 

Copy  2 

DATA  EAST 

Commando 

Tsg  Team  Wrestling 

FLeCTRONIC  ARTS 


(38 


(21 


General  Mgr./Owner   124 

1965  Team  Disk  112 

1966  Team  Disk  112 
MICROPROSE 

F-15  Strike  Eagle         121 

Slienl  Service  121 

MiWDSCAPE 

American  Challenge  (24 
(19 
119 


Age  of  Adventure 
Amnesia 
Archon 

Archon  2:  AdepI 
Artlcfoi  . 
Bard's  Tafa  1  or  2 
Bsltlefront 
Carriers  at  War 
Chessmas(er2(Xi0 
Deluxe  Paint  11  GS 
D.  Paint  Art  it  OS 
D.  Paint  Art  112  05 


19.86 
$29 
19.88 
19.88 
126 
129 
125 
130 
129 
165 

tig 

119 


Bopt  Wreslie 

Infiltrator 
SSI 

Gallysburg 
Phantasle  2 
Rings  of  Zllfin 
Roadwar  2000 
Shard  ol  Spring 
Wlzard'a  Crown 
SPflfWGflOAWO 
Certlllcale  Maker        $29 
CM.  Library  Vol.1        (21 
Newsroom  (32 

N.R.  Clip  Art  *1  or  (3  (17 
N.R.  Clip  Art  a2  (23 

VIP  TECHNOLOGIES 
VIPProfeBslonsiaS(17« 


135 
123 
123 
123 
123 
123 


P.O.  BOX  11327  —  DEPT.  CP  —  BLAWNOX,     PA  15238 


'PItast  f  sad  T/ie  Fallowing  Ordtring  Terms  A  Condhlona  Care/uf/y  Before  Placing  Your  Order;  Orders  ntlh  caahlars  checfc  or  monat  order  shipped  immadlatalf  on  In 
sloe*  Hams.  Paiaonal  I  Company  chacks.  alien  3  weeks  ciearanca.  No  C.O.D.'J)  Shipping:  Conl/nenHI  U.S.A.  — Orders  under  (too  add  (3;  free  shipping  on  orders  over 
J1D0.  AK,  HI,  FPO,  APO— addlS  on  aH  orders.  Canada  t  Puerto  fl/co— add  J10  on  a/I  orders.  Sorry,  no  Oliver  Inlematlonal  orders  eccepledl  PA  raaldania  add  8%  safes 
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HOURS:  Man.ftl.  9AM'S;30  PM,  S«l.  10AM-4PM  Easltin  Time.  Sectirse  litis  <d  Had  to  be  wrllfen  2-3  mos.  before  il  wis  published,  prices  I  aiallabllllf  era  suti/ecl  lo 
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«•  830  K  =  FM:  GDSUB  930:  GOSUB 

/  256 

23 

1431  : 

390:  RETURN 

CI 

1180  GOSUB  2280:  GOSUB  2000: 

Bl 

1440  GOSUB  2280:  PRINT  "TITLE 

DC  B39  : 

FDR  I  =  1  TO  NF:  GOSUB  2 

:";:ML  =  MN:  OOSUB  16S0: 

lA  840  REM  DELETE  DfiTft 

160:  POKE  770, T2  -  INT  ( 

Tl*  =  IN*!  IF  IN*  s  ""  T 

BE  841  : 

T2  /  256)  »  256:  POKE  77 

HEN  RETURN 

DC  850  GOSUB  2270s  K  =  0 

1,T2  /  256:  CALL  773:  IF 

99 

1450  GOSUB  2090: S2  =  S:  IF  PP 

3A  Bi0  PRINT  "Nft«E:";:ML  =  MN:  G 

PEEK  <772>  =  0  THEN  123 

THEN  OOSUB  2380 

OSUB  1650; T4«  =  IN«:  IF  I 

0 

34 

1460  GOSUB  2280:  GOSUB  2000 

N»  -  ""  THEN  RETURN 

D( 

1190  IF  S2  =  0  AND  DTt  <  >  Fl 

3ft 

1470  FOR  I  =  1  TD  NF:  BDSUB  2 

25  B70  GOSUB  2000:  FDR  I  =  1  TO 

«  THEN  1230 

160:  IF  LEFT*  (AR«,  LEN 

NF:FP  =  L7.(I):J  =  I:  BY  = 

(IE 

1200  IF  PP  THEN  eOSUB  2350:  G 

(TiS) >  <  >  Tl*  THEN  1230 

N2:  BQSUB  2:  INPUT  AR« 

OTQ  1220 

02 

1480  IF  32  =  0  AND  DT«  <  >  Fl 

C3  BS0  IF  LEFT*  (AR«,  LEN  <T4«)> 

3D 

1210  BOSUB  2200 

»  THEN  1230 

<  >  T4«  THEN  920 

77 

1220  BOSUB  2040:  IF  SI  THEN  I 

7ft 

1490  GOTO  1200 

75  B90  PRINT  :  GOSUB  2160 

»  NF  +  1 

7B 

1499  : 

n   900  GDSUB  2200:  BQSUB  2020:  P 

32 

1230  NEXT  :  GDSUB  2020:  IF  SI 

SB 

1500  REM  CHANGE  PRINTER  MODES 

RINT  :  PRINT  "DELETE  THIS 

THEN  PRINT  :  PRINT  "SEA 

1? 

1501  : 

FILE?  ";:  BD3UB  1740:  GO 

RCH  TERMINATED" 

78 

1510  IF  PP  =  0  THEN  PRINT  :  P 

SUB  2000 

7» 

1240  PRINT  :  GOTO  2320 

RINT  "WHAT  SLOT  FOR  PRIN 

17  910  IF  in  THEN  K  -  1:1  =  IE  + 

ii 

1249  : 

TER;";:  GOSUB  1560: SN  = 

6 

«1 

1250  REM  :BY  CLASS 

IN:  IF  IN  >  7  OR  IN  <  1 

!£  720  NEXT  :  BDSUB  2020:  IF  I  < 

27 

1251  : 

THEN  RETURN 

IE  +  6  THEN  PRINT  :  PRIN 

43 

1260  BOSUB  2280:  BDSUB  1820: 

DF 

1515  PP  =  1  -  PP:  RETURN 

T  "NO  FILE  DELETED":  PRIN 

IF  S  =  1  THEN  RETURN 

5D 

1519  : 

T  :  GOSUB  2320:  RETURN 

JF 

1270  PRINT  :  BDSUB  2090:32  = 

6C 

1520  REM  QUIT 

V   925  PRINT  :  PRINT  "CONDUCT INS 

S:  IF  PP  THEN  QOSUB  2380 

21 

1521  : 

DELETE:"! 

Bi 

1275  POKE  768, Pi  -  INT  (PI  / 

4E 

1530  HOME 

ii  930  IF  K  =  NF  -  1  THEN  950 

256)  t  2S6s  POKE  769, PI 

F7 

1540  PRINT  D«"OPEN  INDEX  POIN 

M  940  FOR  J  =  K  +  1  TO  NFiLZ (J 

/  256 

TERS  ":  PRINT  D*"WRITE  I 

-  n  =  I  ■'  (J):  NEXT 

bf 

1280  GOSUB  2280:  GOSUB  2000: 

NDEX  POINTERS":  PRINT  RL 

flA  950  NF  :•  NF  -  1 

FOR  I  =  1  TO  NF:  GOSUB  2 

;CR*;NF;CR*;s  FOR  I  =  1 

DF  960  PRINT  "COMPLETE":  IF  JK  < 

160:  POKE  770, Tl  -  INT  ( 

TO  NF 

>  ED  THEN  PRINT  :  GOSUB 

Tl  /  256)  t  256:  POKE  77 

(3 

1550  PRINT  L7.  (I)CR«;:  NEXT  : 

2320 

1,T1  /  256:  CALL  773:  IF 

PRINT  D*" CLOSE":  END 

27  970  RETURN 

PEEK  (772)  ■=  0  THEN  123 

6D 

1339  : 

E3  979  : 

0 

12 

1560  REM  INPUT  NUMBER 

14  980  REM  LIST  FILES 

D2 

1290  IF  S2  =  0  AND  DT«  <  >  Fl 

3! 

1561  : 

C7  981  : 

«  THEN  1230 

£7 

1570  IN*  =  "" 

5i  990  GDSUB  2270:  IF  PP  =  0  THE 

51 

1300  GOTO  1200 

34 

1580  PRINT  UL*; :  CALL  -  868: 

N  1010 

53 

1309  : 

PRINT  DL*; 

flj  1000  PRINT  D«"PR«"SN:  PRINT  T 

34 

1310  REM  :BY  COMPUTER  AND  CLA 

in 

1590  WAIT  -  16384, 128:A*  =  CH 

K«(4)LF«CR« 

SR 

R«  (  PEEK  (  -  16384)  -  1 

It    1010  BOSUB  2000:  FOR  I  =  1  TO 

19 

1311  : 

28):  POKE  -  16368,0 

NF:  GOSUB  2160:  IF  SI  T 

25 

1320  BOSUB  2280:  GOSUB  1910: 

M 

1600  ZL  =  LEN  (IN*):  IF  A*  = 

HEN  I  =  NF  +  1:  GOTO  105 

IF  S  =  1  THEN  RETURN 

DL*  AND  IL  >  1  THEN  PRIN 

0 

2E 

1330  GDSUB  22B0;  BOSUB  1S20- 

T  A«;:IN»  =  LEFT*  (IN*,Z 

n    1020  IF  PP  THEN  GOSUB  2350:  B 

IF  S  =  1  THEN  BOSUB  2380 

L  -  1) :  GOTO  1580 

DTD  1040 

85 

1340  PRINT  :  QOSUB  2090: S2  = 

M 

1605  IF  A*  =  DL*  AND  ZL  =  1  T 

*1  1030  GOSUB  2200 

S:  IF  PP  THEN  QOSUB  2380 

HEN  IN*  =  "":  PRINT  A*;: 

5D  1040  GDSUB  2040 

23 

1342  GOSUB  2280:  GOSUB  2000: 

GOTO  1580 

n    1050  NEXT  :  BOSUB  2020:  PRINT 

FOR  I  =  1  TO  NF 

IB 

1610  IF  A*  =  CR*  THEN  PRINT  " 

D»"PR#0":  IF  SI  THEN  HT 

EC 

1345  POKE  768, CI  -  INT  (CI  / 

":  IN  =  VAL  (IN*)  :  ML  ■=  1 

AB  12:  PRINT  "LIST  TERMI 

256)  »  256:  POKE  769, CI 

:  RETURN 

NflTED" 

/    256 

11 

1620  IF  A*  <  "0"  OR  AS  >  "9" 

7E  10t0  PRINT  :  GOTO  2320 

C2 

1350  GOSUB  2160:  POKE  770, T2 

OR  ZL  =  ML  THEN  1590 

i7  1069  : 

-  INT  (T2  /  256)  *  256: 

25 

1630  PRINT  A*;: IN*  =  IN*  +  A* 

n  1070  REM  SEARCH  FILES 

POKE  771,T2  /  256:  CALL 

:  GOTO  1580 

36  1071  : 

773:  IF  PEEK  (772>  =  0  T 

47 

1639  : 

il    1080  GOSUB  2270 

HEN  1230 

El 

1640  REM  INPUT  LETTERS  AND  SO 

Ed  1090  FOR  I  =  0  TO  N0  -  1:  HTA 

Bf 

1355  POKE  768, PI  -  INT  (PI  / 

ON 

B  12:  PRINT  I  +  1")  BY  " 

256)  t    256:  POKE  769, PI 

29 

1641  : 

SSSd):  NEXT 

/  256 

El 

1650  IN*  =  "" 

38  1100  HTAB  12:  PRINT  N0  +  1") 

il 

1360  GOSUB  2160:  POKE  770, Tl 

31 

1660  PRINT  UL*;:  CALL  -  868: 

"SS«(N0) 

-  INT  (Tl  /  256)  «  256: 

PRINT  DL*; 

i7  1110  PRINT  :  HTAB  12:  PRINT  " 

POKE  771, Tl  /  256:  CALL 

91 

1670  WAIT  -  16384, 12B:A«  =  CH 

COMMAND:";:  BOSUB  1S70 

773:  IF  PEEK  (772)  =00 

R«  (  PEEK  (  -  16384)  -  1 

5E  1120  IF  IN  =  6  OR  IN  -  0  THEN 

R  (S2  -  0  AND  DT*  <  >  Fl 

2B>:  POKE  -  16368,0 

RETURN 

«)  THEN  1230 

9ft 

1680  ZL  =  LEN  (IN«):  IF  At  = 

68  1130  IF  IN  <  1  OR  IN  >  N0  +  1 

71 

1370  GOTO  1200 

DL*  AND  ZL  >  1  THEN  PRIN 

THEN  1080 

71 

1379  : 

T  A*;: IN*  =  LEFT*  (IN«,Z 

BF  1140  JS  =  IN  -  1:  ON  IN  GOSUB 

H 

1380  REM  : ISSUE 

L  -  1 ) :  GOTO  1660 

1160,1260, 1320,  1390, 144 

35 

1381  : 

C4 

1685  IF  A*  =  DL*  AND  ZL  =  1  T 

0:  PRINT  D»"PR*0"s  GOTO 

21 

1390  GDSUB  2280:  PRINT  "ISSUE 

HEN  IN*  =  "":  PRINT  A*;: 

10S0 

'■;:  eOSUB  2090:  DT«  =  Fl 

GOTO  1660 

il  1149  : 

»:  IF  S  THEN  RETURN 

FB 

1690  IF  At  =  CRt  THEN  PRINT  " 

tE  1150  REM  :BY  COMPUTER 

87 

1400  IF  PP  THEN  BDSUB  2380 

":ML  =  1:  RETURN 

25  1151  : 

EB 

1410  BOSUB  22B0:  BOSUB  2000: 

£7 

1700  IF  ZL  =  ML  THEN  1660 

31  1160  GOSUB  2280:  GDSUB  1910: 

FOR  I  =  I  TO  NF:  QOSUB  2 

1ft 

1710  IF  (At  <  "  "  OR  A*  >  "9" 

IF  S  =  I  THEN  RETURN 

160:  IF  DT»  <  >  IN*  THEN 

)  AND  (At  <  "; "  OR  A*  > 

iV    1170  PRINT  :  GOSUB  2090:  S2  = 

1230 

CHR*  (91) )  OR  A*  =  ","  0 

S:  IF  PP  THEN  OOSUB  2380 

5E 

1420  GOTO  1200 

R  ZL  ■=  ML  THEN  1670 

f*  1175  POKE  768,  CI  -  INT  (CI  / 

5F 

1429  : 

C2 

1720  PRINT  At;: IN*  =  IN*  +  A* 

256)  t  256:  POKE  769, CI 

M 

1430  REM  : TITLE 

:  GOTO  1660 

112     COMPUTEI     Aprlll987 


65  1729  : 

:  GOTO  1910 

T3:  PRINT  :  RETURN 

B3  1730  REM  INPUT  YES/ NO 

74 

1975  IF  GBX(IN)  -  0  THEN  1982 

68  2259  : 

29  1731  : 

CB 

1980  CI  =  (2  "  (IN  -  1))  +  CI 

5A  2260  REM  CLEAR  SCREEN 

DF  1740  INS  =  "" 

:SBr.  (IN  -  1>  =  0 

2C  2261  : 

2E  175a  PRINT  UL« ;  :  CALL  -  868: 

SB 

1982  NEXT  :S  =  0:  RETURN 

95  2270  HOME  :  PRINT  SPC (  20  -  L 

PRINT  DL«; 

81 

1989  : 

EN  (TK«(JK))  /  2)TK*(JK> 

n    1760  WAIT  -  163B4, 12B:fl*  =  CH 

48 

1990  REM  OPEN  FILE 

:  GOTO  2290 

R*  (  PEEK  '.     ~    16381>  -  1 

45 

1991  : 

9A  2280  HOME  :  PRINT  SPC<  15  -  L 

28) :  POKE  -  16363, 0 

E3 

2000  PRINT  Dt"OPEN  "Z*",L"FL: 

EN  (TS*(JS)>  /  2) "SEARCH 

7B  1770  ZL  =  LEN  (INS):  IF  ft*  = 

RETURN 

BY  "TS*(JS) 

DLS  AND  ZL  >    1  THEN  PRIN 

51 

2009  : 

44  2290  VTAB  1:  IF  PP  THEN  INVER 

T  A«;!lN*  =  LEFT*  (IN«,Z 

36 

2010  REM  CLOSE  FILE(S) 

SE  :  PRINT  "PRINTER";:  N 

L  -  1):  GOTO  1750 

14 

2011  : 

DRMAL 

B2  1775  IF  ft*  =  DLt  AND  ZL  =  1  T 

n 

2020  PRINT  D«"CLGSE":  RETURN 

43  2300  PRINT  :  PRINT  :  PRINT  : 

HEN  IN*  =  "'■:  PRINT  ft*;  : 

SB 

2029  ; 

RETURN 

GOTO  1750 

IB 

2030  REM  WAIT  FOR  KEY  PRESS IN 

56  2309  : 

5E  1780  IF  ft«  ■=  CRt  AND  ZL  THEN 

G 

EA  2310  REM  PRESS  RETURN 

PRINT  "  ":ID  =  (  LEFT*  ( 

IC 

2031  : 

1ft  2311  : 

IN», 1)  =  "Y"):  RETURN 

!5 

2040  SI  =  0:  IF  PEEK  C  -  1638 

45  2320  SI  =  0:  HTAB  13:  PRINT  " 

48  1790  IF  A*  <  "A"  OR  A*  >  "Y" 

4)  <  12a  THEN  RETURN 

PRESS  RETURN:";:  QOSUB  1 

OR  ZL  =  3  THEN  1760 

14 

2045  A*  =  CHRS  (  PEEK  (  -  163 

650:  IF  LEFT*  (IN«,1)  = 

1C  1800  PRINT  A*;:  IN*  =  IN*  +  A* 

84)  -  12H):  POKE  -  16368 

"E!"  THEN  SI  =  1 

:  GOTO  1750 

,0 

E4  2330  RETURN 

5f  1809  : 

la 

2050  IF  fi*  =  "  '■  THEN  POKE  10 

62  2339  : 

!4  1810  REM  INPUT  APPLICftTION 

24,32:  WAIT  -  16384,128: 

68  2340  REM  OUTPUT  TO  PRINTER 

23  1811  : 

POKE  -  16368,0:  POKE  10 

24  2341  : 

11   18Z0  S  =  1:  VTAB  3:  FDR  I  =  0 

24, 160 t  RETURN 

<?£  2350  PRINT  D*"PR#"SN:  PRINT  A 

TO  NAs  HTAB  12:  PRINT  I 

?E 

2060  IF  ft*  =  CR«  AND  PP  =  0  T 

R*; 

+  1")  "A«<iJ:  NEXT  :  IF 

HEN  SI  =  1 

F9  2360  PRINT  TAB  (  50)  DT*"  /  PAB 

T8  =  0  THEN  1B60 

££ 

2070  RETURN 

E:  "P(3:  PRINT  :  PRINT  D*" 

BO  1830  T9  =  T8:  FOR  I  =  NA  TO  0 

4C 

2079  : 

PR#0" 

STEP  -    l!  CALL  -  993:  I 

iS 

2080  REM  INPUT  DATE,  STORE  IN 

F4  2370  RETURN 

FT9-2'-I<0  THEN  IS 

Fl« 

CB  2380  PRINT  DS"PR#"SN:  PRINT  " 

50 
K    1840  INVERSE  :  HTAB  12:  PRINT 

J8 

2081  : 

SEARCH  BY  "TS» ( JS) LF»CR« 

9a 

2090  S  =  1:  PRINT  "DATE  (MOM" 

2C  2390  PRINT  D*"PR#0":  RETURN 

I  +  1 ; :  T9  »  T9  -  2  "  I 

CHR*  (93) "YR) :";:ML  =  6 

7A  2399  : 

JC  1850  NEXT  :  NORMAL 

:  GOSUB  16501  IF  IN*  =  " 

92  2400  REM  DATA 

F8  1860  VTAB  14:  HTAB  12:  PRINT 

"  THEN  RETURN 

IB  2401  : 

"WHICH  OF  ABOVE:";:  CALL 

74 

2100  FOR  IN  =  0  TO  U:  IF  LEF 

Di  2410  DATA  6,5,8,8,5,4 

-  86B:ML  =  NA  +  1:  QOSU 
B  1570:  IF  IN*  =  ""  THEN 

T*  (IN*, 3)  =  M«(IN)  THEN 
IN  =  IE  +  3 

212420  DATA  "ADD" , "EDIT" , "DELET 
E" , "LIST" , " SEARCH" , "PRIN 

RETURN 

C4 

2110  NEXT  :  IF  IN  <  15  THEN  2 

TER  MODE", "QUIT" 

*1  1865  FOR  I  =  0  TO  9:GBX(I)  = 

1:  NEXT 
Fi  1870  PI  =  0:  FOR  I  =  1  TO  LEN 
(IN«):IN  =  VAL  <  MID*  < 

IN*, I, m 

F3  1875  IF  BEX  (IN  -  1)  =  0  THEN 

1B92 
(4  18B0  IF  (IN  -  1)  >  NA  OR  IN  = 

14 

130 
2120  IF  MID*  (IN*, 4,1)  =  "  " 

M  2430  DATA  "COMPUTER" , "CLASS" , 
"COMPUTER  AND  CLASS" ," IS 

15 

THEN  2140 
2130  PRINT  "NOT  CORRECT  FORMA 
T":  PRINT  :  GOTO  2090 

SUE " , " T I TLE " , " RETURN " 
46  2440  DATA  "C0MMDD0RE64" , "COMM 
ODORE  128", "AMIGA", "T 1-9 

Fi 

62 

2140  S  =  0:F1«  =  IN*:  RETURN 
2149  : 

9/4A" , "APPLE" , "ATARI " 
42  2450  DATA  "IBM  PC/PCJR",  "ATAR 

Al 
26 
5D 

2150  REM  GET  DISK  DATA 

2151  : 

2160  FP  =  LX (I):BY  =  0:  GOSUB 

2 
2162  INPUT  I1*,I2«:BY  =  N2:  G 
OSUB  2:  INPUT  AR« 

I  ST", "GENERAL " 
FE  2460  DATA  "GAME" , "UTILITY" , "A 

0  THEN  VTAB  14:  HTAB  12 
:  PRINT  "  ILLEBAL  ENTRY" 

PPLICATION", "SUBROUTINE" 
, "DATASORT" 

:  SOTO  1820 
D2  1890  PI  =  (2  ^  (IN  -  1)  )  +  PI 
:GBy.  (IN  -  1>  =  0 

BF 

2B  2470  DATA  "MACHINE  LANGUAGE", 
" RE V I EW " , " L ANGU ABE " , " GEN 

5D  1892  NEXT  :  S  =  0:  RETURN 

FF 

2163  Tl  =  VAL  (I1*):T2  =  VAL 

ERAL  INTEREST" 

B3  1899  : 

<12») 

«  2480  DATA  " INDEXER" , "ADD  A  RE 

59  1900  REM  INPUT  COMPUTER 

DE 

2170  BY  =  N3:  GOSUB  2:  INPUT 

CORD", "EDIT  A  RECORD" , "D 

21  1901  : 

DT«:BY  =  N6:  INPUT  PQ* 

ELETE  A  RECORD" 

AB  1910  S  =  1:  VTAB  3:  FOR  I  =  0 

6! 

2171  PG  =  VAL  (PG«) 

C4  2490  DATA  "LIST  FILES" ,  "SEARC 

TO  NC:  HTAB  12:  PRINT  I 

IF 

2180  BY  =  N5:  BOSUB  2:  INPUT 

H  SYSTEMS" 

+  1")  "C«(I):  NEXT  :  IF 

CM*:  RETURN 

5i  2500  DATA  "COMPUTER" , "CLASS" , 

T8  =  0  THEN  1950 

72 

2189  : 

"COMPUTER  AND  CLASS", "IS 

15  1920  T9  =  TH:  FOR  I  =  NC  TO  0 

27 

2190  REM  PRINT  DATA 

SUE", "TITLE" 

STEP  -  1:  CALL  -  99B:  I 

36 

2191  : 

SB  2510  DATA  "JAN",  "FEB",  "MAR"  ,  " 

FT9_2-I<0  THEN  19 

24 

2200  PRINT  "NAME: "AR*:  PRINT 

APR", "MAY" 

40 

"DATE:"DT»"  /  PAGE: "P6! 

81  2520  DATA  "JUN" , " JUL" , "AUG" , " 

IB  193C  INVFRSE  :  HTAB  12:  PRINT 

PRINT  "COMMENT:  "CM*:  T3  =■ 

SEP", "OCT", "NOV", "DEC" 

I  +  1 ; :  T9  =  T9  -  2  -^  I 

Tl 

ED  2530  DATA  169,0,141,4,3,173,0 

3S  1940  NEXT  :  NORMAL 

AD 

2210  PRINT  "CLASS:";:  FOR  J  = 

,3,45,2,3,208,8,173,1.3, 

37  1950  VTAB  14:  HTAB  12:  PRINT 

NA  TO  0  STEP  -  1:M  -  2 

45,3,3,240,5,169,1,141,4 

"WHICH  OF  ABOVE:";:  CALL 

"J:  IF  Tl  -  M  -  >  0  THE 

,3,96 

-  868: ML  =  NC  +  1 :  GOSU 

N  Tl  ■=  Tl  -  Mj  PRINT  A*  ( 

B  1S70:  IF  IN*  -  ""  THEN 

J)"."; 

RETURN 
27  1952  FOR  I  =  0  TO  9:GBX(I)  = 
1:  NEXT 

IF 
8F 

2220  NEXT  :  PRINT  DL* :TI  = 

T3 
2230  PRINT  "COMPUTERS: ";:T3  = 

Program  3:  Magazine 
Indexer  for  Alari  ST 

24  1960  CI  =  0:  FDR  I  =  1  TO  LEN 
(IN*): IN  =  VAL  (  MID*  ( 

Al 

T2 
2240  FOR  J  =  NC  TO  0  STEP  -  1 

Version  by  Patrick  Parrish, 

IN*, 1,1) ) 

:M  =  2  "  J:  IF  T2  -  M  = 

Programming  Supervisor 

ei  1970  IF  (IN  -  1)  >  NC  OR  IN  = 

>  0  THEN  TZ  =  T2  -  M:  PR 

0  THEN  VTAB  14:  HTAB  12 

INT  C*(J>;","; 

90     ON  ERROR  GOTO  2820 

:  PRINT  "  ILLEGAL  ENTRY" 

IS 

2250  NEXT  :  PRINT  DL«"  " : T2  = 

95     POKE  CONTRL. 123! POKE  CONT 
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97 

100 

110 

120 

1S0 
180 
190 

200 

210 

220 

240 
260 

2i5 

270 
275 

276 

2B0 

28S 
286 

290 

295 


300 

305 


310 


315 


316 


317 


320 

325 


330 

33S 

336 

340 
345 


RL+2,0:POKE  CDNTRL+6,0 

VDISYS(0) iREn  TURN  OFF  MO 

USE  CURSOR 

DIM  COLX (16)tF0R  J=0  TO  1 

SsREAD  COLX<J):NEXT 

DflTft  1911,1792,96,300,7,8 

0,5,  1365,546, 119,85, 1360, 

1799, 1904, 1285,0 

DEFDBL  P:PTR=1 114: POKE  PT 

R,VftRPTR(COLX(0) ) 

REM  Title  Page 

DEFINT  A-Zi OPTION  BASE  1 

file*-" INDEX  1. DAT" :FULLW 

2: CLE ARM  2: WIDTH  80: COLOR 

1 
BOTOXY  23,5sPRINT"The  Mag 
asine  Indexer" 
SGTOXY  24,7:PRINT"Data  Ba 
se  Program" 

BOTOXY  24, lis PRINT"OnB  Mo 
flient  Please" 
REM  initialization 
READ  NUMMAINMENU:DIM  MAIN 
MENU* ( NUMMA 1 NMENU ) , T I TLES 
*<NUMMAINMENU) 
FOR  1  =  1  TO  NUMMA I NMENU I  RE 
AD  MAINMENUSd)  sNEXT 
DATA  7, "Add", "Edit", "Del B 
te" , "List", "Search", "Prin 
ter  Mode", "Quit" 
FOR  1=1  TO  NUMMA I NMENU: RE 
AD  TITLES* (I) sNEXT 
DATA  "Add  a  Record", "Edit 

a  Record" , "Delete  a  Reco 
rd","Liat  Files" 
DATA  "Search  Records",, "L 
eave  INDEX" 

READ  NUMSE ARCH: DIM  SEARCH 
• ( NUMSE ARCH ),SEARCHTITLES 
«( NUMSE ARCH) 
FOR  1=1  TO  NUMSE ARCH: READ 

SEARCH* (I) I  next  i 
DATA  6,  "coRiputBr  "  ,  "class" 
."computer  and  class", "is 
sue", "title", "return" 
FOR  1=1  TO  NUMSE ARCH; READ 

SEARCHTITLES* ( I ) : NEXT 
DATA  "Computer", "Class", " 
Computer  and  Class", "Issu 
e", "Title", 
READ  NUMCQMPS 
IF  NUMC0MPS>16  THEN  PRINT 
"Error;  can't  have  >16  co 
mputers":STOP 
DIM  COMPS*  i NUMCOMPS ) :  FOR 
1=1  TO  NUMCOMPS: READ  CDMP 
S«CI):NEXT 

DATA  15, "ApplB", "Atari"," 
Macintosh", "Atari  ST", "VI 
C— 20", "Commodore  64" 
DATA  "Commodore  12S","Com 
modore  PI us/4" , "Commodore 

16", "PET/CBM" 
DATA  "Tex •is  Instruments", 
"IBM  PC'-,  "IBM  PCjr",  "Ami g 
a", "General " 
READ  NUMAPPS 

IF  NUMAPPS >16  THEN  PRINT" 
Error:  can't  have  >16  app 
1 ications": STOP 
DIM  APRS* (NUMAPPS) : FOR  1= 
1  TO  NUMAPPS: READ  APPS* (I 
)fNEXT 

DATA  9, "Bame" , "Util i ty", " 
Appl i  cati  on " , "Subrouti  ne" 
,  "Datasort" 

DATA  "Machine  Language"," 
Review", "Language",  "Gener 
al  Interest" 

DIM  MONTHS* ( 12) ! FOR  I"l  T 
O  12: READ  MONTHS* (I ) J  NEXT 
DATA  "Jan", "Feb", "Mar", "A 
pr" , "May", "Jun" 


346    DATA  "Jul"," Aug " , " Sep " , " 0 

ct" , "Nov", "Dec" 
350    NEXTLEN=2lNAMELEN=40!CDMM 

ENTLEN=40! DATELEN=6 
355    PflGELEN=2 : APPLEN=2  i  COMPLE 

N=2 
360    RECLEN=NEXTLEN+APPLEN+CDM 

PLEN+NAMELEN+DATELEN+PABE 

LEN+CDMMENTLEN 
370    CR«=CHR«(13):PRI NTER=0 ! NO 

FILE=0 
410    OPEN  "R",«l,f ile«,RECLEN: 

GET#1,1: CLOSE  #1 
420    OPEN  "R",«l,f ile*,RECLEN: 

REM  assume  random  access 
425    REM  Put  a  space  at  the  be 

ginning  of  the  second  and 
third  lines  in  430 
430    FIELD  •1,NEXTLEN  AS  RNEXT 

REC»,  APPLEN  AS  RAPP«,  CO 

MPLEN  AS  RCOMP*, 
NAMELEN  AS  RNAME*.  DATEL 

EN  AS  RDATE*,  POBELEN  AS 

RPAGE*, 

COMMENTLEN  AS  RCDMME 

NT* 
450    REM  build  empty  record  en 

try  if  no  file 
470    IF  NOFILE=0  THEN  550 
4S0    GOTOXY  16, 16:PRINT"0p«nin 

g  data  file  for  the  first 
time" 
485    FOR  U=i  TO  1000: NEXT 
490    REM  RNEXTREC  holds  the  ne 

xt  blank  record,  RPAGE  ho 

Ids  the  last  record 

495  REM  in  the  file,  RDATE  ho 
Ids  the  date  the  file  was 

created, 

496  REM  other  fields  ^re   mean 
ingless 

500    LSET  RNEXTREC*»MKl»(0)iLS 

ET  RNAME*="Dummy  Record": 

LSET  RDATE»="Nov  86" 
505    LSET  RPAGE»=MK I « ( 1 ) s  LSET 

RCOMMENT*="Null  record  ch 

ain" 
510    PUT  #1,1 
530    REM  main  menu 
5S0    GET#1,1:N0FILE=(CVI (RPAGE 

*)=CVI  (MKKCl)  )  ) 
555    IF  NOFILE  THEN  MAINOPTION 

=l:GaTO  590 
560    MA I NOPT I ON=0 : T I TLE»= " I NDE 

X  program" :GOSUB  2580: FOR 
1=1  TO  NUMMA 1 NMENU 
565    PRINT  TAB(22) !"<"!l!")  "i 

MAINMENU«(I):NEXT 
570    PR I NT : PR I NT  TAB ( 22 ) } "Comm 

and!  "fs INPUT  IN 
580    IF  IN<1  OR  IN>NUMMAINMENU 
THEN  550  ELSE  MAINOPTION 

=  IN 
S90    TITLE*=TI TLES* ( MA I NOPT I ON 

) 
595    ON  MAINOPTION  GOSUB  630, B 

10, 1000, 1140, 1200,1760, 18 

00: GOTO  SS0 
610    REM  add  entry 
630    GOSUB  25S0:BOSUB  2350: PDA 

TE«=IN*:IF  LEN(PDATE*)=0 

THEN  RETURN 
640    GOSUB  25B0 : PR I NT " N  ame : " I : 

INPUT  PNAME*:IF  LEN(PNAME 

») >NAMELEN  THEN  640 
645    IF  LEN(PNAME*)=0  THEN  RET 

URN 
650    PR I NT " Page : " ; : I NPUT  PAGE* 

:PAGE=VAL(PABE*> 
652    IF  LEN(PAGE*)>3  THEN  CLEfl 

RW  2: goto  650 
655    PPAGE»=MKI«<PA6E):IF  LEN( 

PABE*)=0  THEN  640 


660    PAPPS*=MKI»(0) ! GOSUB  20B0 

: IF  CVI (PAPPS»)=0  THEN  64 

0 
670    PCOMPS*=MKI*<0) sBDSUB  218 

05  IF  CVI (PCOMPS*)=0  THEN 

640 
680    GOSUB  2580s  PR I NT "Comment: 

";! INPUT  PCOMMENT* 
682    IF  LEN (PCOMMENT*) >COMMENT 

LEN  THEN  CLEARW  2: GOTO  68 

0 
685    IF  LEN (PCOMMENT*) =0  THEN 

PCOMMENT«="None" 
690    PNEXTREC*"MKI*(0) 
700    PRINT:PRINT"Please  wait. " 
710    GETttl, 1: IF  CVI (RPAGE*) =1 

THEN  GOSUB  2720: GOTO  750 

715  GET«l,2sIF  PNAME*>RNAME« 
THEN  720 

716  GOSUB  2720: GET* 1,2: PUT  «1 
, INTREC 

717  PNEXTREC*=MKI* ( INTREC) : GO 
SUB  2460: PUT  #1,2: GOTO  76 
0 

720    GET#1,2:J=2:I=CVI (RNEXTRE 

C*) s IF  1=0  THEN  740 
730    GET#l,l!lF  PNAME*<=RNAME» 

THEN  740 
735    J=I: 1=CVI (RNEXTREC*) : IF  I 

=0  THEN  740  ELSE  730 
740    GOSUB  2720:GET#1,J:PNEXTR 

EC«=RNEXTREC« 
745    LSET  RNEXTREC*=MKI*(INTRE 

C) :PUT  #1,J 
750    GOSUB  2460: PUT  #1, INTREC 
760    NaFILe=0 
770    IF  MAIN0PTI0N=2  THEN  RETU 

RN  ELSE  640 
790    REM  edit  entry 
810    SOSUB  2580!STARTENTRY=2:L 

ASTENTRY=2:PRINT"Name: "; 
815    INPUT  DNAME*!lF  LEN (DN AME 

*)>NAMELEN  THEN  810 
817    IF  LEN(DNAME*)=0  THEN  RET 

URN 
820    PRINTsPRINT"Scanning  for 

entry,  "; 
830    GET  #1,STARTENTRY 
B35    IF  LEFT* (RNAME*, LEN (DN AME 

»))=DNAME*  THEN  PRINT"Fou 

nd. "! PRINT! GOTO  850 
B36    LASTENTRY=-STARTENTRV:STAR 

TENTRY=CVI (RNEXTREC*) 
S37    IF  STARTENTRY>0  THEN  830 
840    PR I NT "Not  found" SPRINT: GO 

TO  2630 
B50    GET#1,STARTENTRY: GOSUB  24 

20:6OSUB  2500 
860    PRINT:PRINT"Make  any  chan 

ges  (y/n)  ";: GOSUB  20401  I 

F  IN=1  THEN  880 
870    LASTENTRY=STARTENTRY : STAR 

TENTRY-CVI (RNEXTREC*) 
875    IF  STARTENTRY=0  THEN  RETU 

RN  ELSE  GOSUB  25801  GOTO  8 

20 
880    BOSUB  2580 1  PR I NT: PR I NT "Na 

mes"jPNAME* 
890    PRINTiPRINT"Na(iiB:"i  :  INPUT 
I N* ! I F  LEN ( I N* ) >N AMELEN 

THEN  880 
895    IF  LEN(IN*)<>0  THEN  RNAME 

*=IN* 
900    GOSUB  2590! PR INT SPRINT "Da 

tB!"iPDflTE«jPRINT 
905    GOSUB  2350! IF  LEN(IN»)<>0 

THEN  PDATE«=IN« 
910    GOSUB  25801  PRINTS PRINT"Pa 

gBs"iCVI (PPAQE*) ! PRINT: PR 

I NT "Page:  "j 

915  INPUT  IN*! IN-VAL(IN«) s IF 
LEN<IN«)>3  THEN  910 

916  IF  LEN(IN»)<>0  THEN  PPASE 


114     COMPUTEI     April  1987 


THE  LOWEST 

PRICES 


THE  BEST 
SERVICE 


PHONE 
LINES 
OPEN 


10-6  E.S.T. 
M-F 


ELECTRONIC  ONE* 

CALL  f614J  864-9994  *  P.O.  Box  13428  •  COLUMBUS.  OHIO  43213 


A  ATARI  1040  ST 

Personal  Computer  System 

•  1 ,048,576  BYTES  RAM 

•  196,608  BYTES  ROM 

•  BUILT  IN  TOS 

•  3V2  INCH  DBL 
SIDED  DISK  DRIVE 

•  TWO  BUTTON  MOUSE 

•  COLOR  MONITOR 

•  512  COLORS 

•  MIDI  IN/OUT  PORTS 


$8699® 


B/W  SYSTEM  S68999    COMPLETE  COLOR  SYSTEM 


t  COMMODORE  PC-10-2 
IBM  Compatible  System 


8088  MICROPROCESSOR 

640K  B  RAM 

2-360K  DISK  DRIVE 

PC-XT  COMPATIBLE  BIOS  ///  / 

85  KEYS  ' 

CENTRONICS  PARALLEL  PORT 
RS-232  SERIAL  PORT 
EXPANSION  SLOTS 
POWER  SUPPLY  W/FAN 
FULLY  IBM  COMPATIBLE 
TENIKA  MJ22  COLOR  RGB 
W/CABLE  239"  OPTIONAL  PRICE 


$88999 

$71999 


PCI  0-1 

ONE  DISK 

DRIVE 


51 2K 


A 


ATARI  520ST 


520ST 
SINGLE  DISK 

DRIVE 

B/W  Monitor 

Complete 


520ST 
SINGLE  DISK 

DRIVE 

Color  Monitor 

Complete 


45999    69999 


COMPUTERS 

FOR  THE  HOME 

AND  OFFICE 

AT  LOW,  LOW 

PRICES 

ELECTRONIC 

ONE 


co! 


IBM  Compatible 


Franklin  Computers 
PC  8000 


.  SF354  SQL 
DISK  DRIVE 

•  SF  314  DBL 
DISK  DRIVE 


12999 


SF  350-20  MEG 
HARD  DRIVE      49999 


19999 
•  B/W  MONITOR   12993 


COLOR 
MONITOR 


29999 


LOW,  LOW  PRICE  HOME  COMPUTERS 

ATARI  800XL  (64k)   $69,99 

ATARI  65XE  (64k)  W/SOFTWARE   $89.99 

ATARI  130XE(128k) $129,99 

COMMODORE  64  (REFURBISH) .$129.99 

FULL  90  DAY  WARRANTY 

COMMODORE  64C(W/GEOS) $169.99 

COMMODORE  128  (128k) $239.99 

(WE  CARRY  VIDEO  GAMES  TOO!) 


4.77  MHZ 

•  51 2K  RAM 

•  2-360K  DISK  DRIVES 

.  PARALLEL  PRINTER  PORT 

•  COLOR  ADAPTER 

•  MODEM  ADAPTER 

•  EXPANSION  SLOTS 


$59999 


W/RGB 

MONITOR 

81 9« 


W/GREEN 

MONITOR 

689« 


Franklin  Ace  500 
Apple  20  Computer 

FULLY  2C  COMPATIBLE 

•  256K  RAM 

•  51/4"  164K  DRIVE 

•  KEY  PAD 


$39999 


SWITCHABLE  40/80  COLUMN 

EARPHONE  JACK  W/GREEN  MONITOR  W/RGB  COLOR 

90  KEY  KEYBOARD  5489.99  $619.99 


CALL  FOR  COMPLETE  CATALOG 

HOW  TO  ORDER:  CASHIER  CHECK,  MONEY  OROER.  MASTERCARD-  OB  VISA"  (ADD  4%  FOR  CHARGE  CARDS) .  ,  .  NO  PERSONAL  CHECKS  ...  NO  C  O.D.'S  .  .  .  SHIPPED 

U.P.S ALL  PRICES  SUBJECT  TO  CHANGE  WITHOUT  NOTICE- 

SHIPPINQr  ADD  $3.00  ON  ALL  ORDEflS  UNDER  S100.00  .  .  .  ADD  $5.00  ON  ALL  ORDERS  OVER  $100.00.  ACTUAL  FREIGHT  CHARGED  ON  MULTIPLE  ORDERS. 
INTERNATIONAL:  ACTUAL  FREIGHT  CHARGEO  ON  ALL  ORDERS  OUTSIDE  THE  CONTINENTAL  UNITED  STATES  INCLUtJlNG  A.P.O. 

POLICIES;  NO  RETURNS  WITHOUT  A  RETURN  AUTHORIZATION  ...  NO  RETURNS  UNLESS  DEFECTIVE.  ALL  DEFECTIVES  WILL  BE  EXCHANGED  ...  NO  EXCEPTIONS. 
PLEASE  SPECIFY  .  .  . 

CALL  on  WRITE  FOR  FREE  CATALOG 


CALL  ELECTRONIC  ONE  f  6 1 4J  864-9994 


P.O.  BOX  1 3428  COLUMBUS.  OHIO  4321 3 


«=MKI*(IN) 
920    GOSUB  2380: PRINT: PR INT "Co 

mment : " ; PCOMMENT* 
93a    PRINTiPRlNT"Commentl "jiIN 

PUT  INf«!lF  LEN(IN»)>COMME 

NTLEN  THEN  920 
935    IF  LEN<IN»)<>0  THEN  PCOMM 

ENT«=IN« 
940    GDSUB  2580iBOSUB  20B0iGO5 

UB  2S60:GG5UB  2180: GOSUB 

2580: GOSUB  2500 
950    PRINT:PRINT"Is  this  corre 

ct  (y/n)  ";: GOSUB  2040: IF 
IN=0  THEN  S50 
9t0    DELETEENTRY=STflRTENTRY:QO 

SUB  1070: GOSUB  690: RETURN 
900    REM  delete  entry 
1000   GOSUB  2580:DELETEENTRY=2: 

LASTENTRY=2 
1010   PRINT-'Name:  ";:  INPUT  DNflME 

«! IF  LEN  CDNAME*) >NAMELEN 

THEN  1000 
1015   IF  LEN(DNAME»)=0  THEN  RET 

URN 
1020   BET  #1,DELETEENTRY:IP  LEF 

T* ( RNAME* , LEN ( DN AHE« ) >  =DN 

AME*  THEN  1040 

1025  LflSTENTRY=DELETEENTRY:DEL 
ETEENTRY=CVI <RNEXTREC») 

1026  IF  DELETEENTRY>0  THEN  102 
0 

1030   PRINT"No  delete  perfarmed 

.";:IF  IN«="N"  THEN  PRINT 

sGOTO  2630 
1035   PRINT  "Entry  not  found.": 

PRINT: GOTO  2630 
1040   GDSUB  2420: GOSUB  2S00 
1030   PRlNT:PRINT"Delete  this  e 

ntry  (y/n)  " j : BOSUB  2040 
1060   IF  INO0  THEN  1070 

1065  LASTENTRY=DELETeENTRY:DEL 
ETeENTRY=CVI CRNEXTREC*) 

1066  IF  DELETEENTRY>0  THEN  102 

0  ELSE  1030 

1068      PRINT:PRINT    "Performing    D 

elete:  "; 
1070       IF   DeLETEENTRY<>2    THEN    10 

90 

1075  BETttl,2:  J=CVHRNEXTREC*> 

1076  IF    J<>0    THEN    1080 

1077  GET«l,l:LSeT  RPAGE»=t1KI«( 
1):LSET   RNEXTREC«=MKI*<0) 

1078  PUT  #1,  l:PRINT"Co(nplBte." 
: RETURN 

1080  GET#1, J:PUT  «l,2t6eT#l, It 
TEMP»=RNEXTREC«:LSET  RNEX 
TREC»=MKI«(J> 

10B5  PUT  #1, 1:GET#1, J:LSET  RNE 
XTREC«=TEMP«:PUT  «I,J:PRI 
NT"Con)plete.  ":  RETURN 

1 090  GET* 1,1: TEMPS=RNEX  TREC* : L 
SET  RNEXTREC»=MKI« (DELETE 
ENTRY): PUT  #1,  1 

1095  GET#1,DELETEENTRY:TEMP2«= 
RNEXTREC*:LSET  RNEXTREC«= 
TEMP* 

1096  PUT  «1,DELETEENTRY 

1100   BET#1,LASTENTRY:LSET  RNEX 
TREC*=TEMP2«:PUT  «l,LASTE 
NTRY 
1105   PRINT"ComplBte. ":RETURN 
1120   REM  list  entriBB 
1140   GOSUB  2580:STARTENTRY=2 
1150   GET* l.STARTENTRY: GOSUB  24 
20: GOSUB  2500: IF  PRINTER= 

1  THEN  GOSUB  2680 

1160   IF  PRINTER=0  THEN  GOSUB  2 

280 
1162   STARTENTRY=CVI (PNEXTREC*) 

1165  IF  STARTENTRYO0  AND  SERR 
OR=0  THEN  1150  ELSE  GOSUB 

2630: RETURN 


1180   REM  search  -filBS 

1200   TITLe«=TITLES«<MAINOPTION 

)  :  GOSUB  2!Se0 
1210   FOR  1=1  TO  NUMSEARCH-1:PR 

INT  SPC(12);" (";I;")  by  " 

S SEARCH* (I JsNEXT 
1215   PRINT  SPC(12) j"("sNUMSEAR 

CH ; " )  "; SEARCH* ( NUMSE ARCH 

) 
1220   PRINT: PRINT  SPCC 12) "Comma 

nds";jINPUT  IN*:  IF  LENdN 

«)=0  THEN  1200 
1225   IN=VAL(IN*):IF  IN=NUMSEAR 

CH  OR  IN=0  THEN  RETURN 
1230   IF  IN<1  OR  IN>NUMSEftRCH-i 
THEN  1200 

1 235  SEARCHOPTION=IN:TITLE*="S 
earch  by  "+SEARCHTITLES* ( 
SEARCHOPTION) 

1236  DN  SEARCHOPTIDN  GOSUB  127 
0, 1370, 1470, 1580, 1670SBOT 
D  1200 

1250   REM  :by  computer 

1270   PCOMPS*=MKI*(0): GOSUB  218 

0S  DCOMPS*=PCOMPS* 
1275   IF  CVI (DCOMPS*>=0  THEN  RE 

TURN 
1280   PRINT: GOSUB  2350s DDATE*=I 

N» : NOD ATE= ( LEN ( DDATE* ) =0 ) 

1285   IF  PRINTER=1  THEN  LPRINT 

TITLE* 
1290   GOSUB  25a0:STARTENTRY=2 
1300   GET*1,STARTENTRY; IF  (CVI ( 

RCOMP*)  AND  CVI (DCOMPS*) ) 

30  THEN  1330 
1305   IF  NDDATE=0  AND  DDATE*<>R 

DATE*  THEN  1330 
1310   GDSUB  2420: IF  PRINTER  THE 

N  GOSUB  2600  ELSE  GOSUB  2 

500 
1320   IF  PRINTER=0  THEN  BOSUB  2 

280 
1325   IF  SERR0R=1  THEN  PRINT; PR 

INT"Search  terminated. ": G 

DSUB  2630! RETURN 
1330   STARTENTRY=CVI (RNEXTREC*) 

1335   IF  STARTENTRYO0  THEN  130 

0  ELSE  GOSUB  2630: RETURN 
1350   REM  by  cl»s« 
1370   PAPPS*=MKI*(0) : GOSUB  2080 

: DAPPS*=PAPPS» 
1375   IF  CVI (DAPPS«)=0  THEN  RET 

URN 
1380   PRINT: GOSUB  2350: DDftTE«=I 

N*: NDDATE= (LEN (DDATE*) =0) 

1385   IF  PRINTER=1  THEN  LPRINT 

TITLE* 
1390   GOSUB  2Sa0:STARTENTRY=2 
1400   6ET«1,STARTENTRY:IF  (CVK 

RAPP*)  AND  CVI (DAPPS*) )=0 
THEN  1430 
140S   IF  NDDATE=0  AND  DDATE*<>R 

DATE*  THEN  1430 
1410   GOSUB  2420: IF  PRINTER  THE 

N  EOSUB  2690  ELSE  GDSUB  2 

500 
1420   IF  PRINTER=0  THEN  GOSUB  2 

280 
1425   IF  SERRaR=l  THEN  PRINT: PR 

INT"Search  terml nated . " : G 

DSUB  2630! RETURN 
1430   STARTENTRY=CVI (RNEXTREC*) 

i  IF  STARTENTRYO0  THEN  14 

00 
1435   GDSUB  2630: RETURN 
1450   REM  :by  computer  and  clas 

s 
1470   PCDMPS*=MKI*(0> : GOSUB  210 

0: DCOMPS*=PCOMPS* 
1475   IF  CVI (DCOMPS*)=0  THEN  RE 

TURN 


1 480   PAPPS«-MK 1 • ( 0 ) : GGSUB  20S0 

I DAPPS»-PAPPS« 
1483   IF  CVI (DftPPS*)=0  THEN  RET 

URN 
1490   PRINT: BOSUB  2350:DDATE*=I 

N«sNODATE»(LEN( DDATE* ! =0 ) 

1493   IF  PRINTER=1  THEN  LPRINT 

TITLE* 
1300   BOSUB  25S0:STARTENTRY=2 
1510   BET#l,STARTENTRY!lF  (CVK 
RAPP*)  AND  CVI (DAPPS*) )=0 
THEN  1340 
1313   IF  (CVI (DCOMPS*)  AND  CVI ( 

RCOMP*) )«0  THEN  1540 
iai6   IF  NODATE-0  AND  DDATE*<>R 

DATE*  THEN  1340 
1320   GDSUB  2420s  IF  PRINTER  THE 
N  GDSUB  2680  ELSE  BOSUB  2 
500 
1330   IF  PRINTER*0  THEN  80SUB  2 

280 
1533   IF  SERR0R=1  THEN  PRINT: PR 
INT"Search  terminated. "sG 
OSUB  26301  RETURN 
1540   STARTENTRY«CVI (RNEXTREC*) 
:IF  STARTENTRYO0  THEN  15 
10 
1545   GOSUB  2630; RETURN 
1560   REM  :by  date 
1380   GDSUB  2580: PRINT" Issue  "; 

sSOSUB  2350!DDATE«=IN* 
1585   IF  LEN (DDATE*) =0  THEN  RET 

URN 
1590   IF  PRINTER  THEN  LPRINT  TI 

TLE* 
1600   GOSUB  2580: STARTENTRY=2 
1610   GET»1,STARTENTRY:1F  RDATE 

»<>DDATE«  THEN  1620 
1612   GOSUB  2420: IF  PRINTER  THE 
N  BOSUB  2680  ELSE  GDSUB  2 
500 
1620   IF  PRINTER=0  THEN  GOSUB  2 

280 
1625   IF  SERR0R=1  THEN  PRINT: PR 
INT"SBarch  terminated. "sG 
OSUB  2630: RETURN 
1630   STARTENTRY=CV I (RNEXTREC*) 
!IF  STARTENTRYO0  THEN  16 
10 
1633   BOSUB  2630: RETURN 
1650   REM  :by  title 
1670   GOSUB  25B0:PRINT"Name: "j : 
INPUT  DNAMESsIF  LEN(DNAME 
*) >NAMELEN  THEN  1670 
1675   IF  LEN(DNAME*)=0  THEN  RET 

URN 
1 680   GOSUB  2350 : DDATE*= I N* : NOD 

ATE=(LEN<DDATE*>=0) 
1685   IF  PRINTER  THEN  LPRINT  TI 

TLE* 
1690   GQSUB  25B0:STARTENTRY=2 
1 700   BET* 1 , STARTENTRY 

1705  IF  LEFT* (RNAME*, LEN (DNAME 
*))<>DNflME«  THEN  1715 

1706  IF  DDATE*<>RDATE*  AND  NOD 
ATE=0  THEN  1715 

1707  BOSUB  2420: IF  PRINTER  THE 
N  GDSUB  2680  ELSE  GOSUB  2 
500 

1710   IF  PRINTER=0  THEN  GOSUB  2 

280 
1715   IF  SERR0R=1  THEN  PR I NTs  PR 

INT"Search  terminated. "iB 

OSUB  2630; RETURN 

1720   STARTENTRY=CVHRNFXTREC*) 
!  IF  STARTENTRYO0  THEN  17 
00 
1725   GDSUB  2630! RETURN 
1740   REM  change  printer  modes 
1760   PRINTER=1-PRINTER: RETURN 
1700   REM  quit 
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IBfiifi)   CLEflRW  2 1  CLOSE  #liCLOSEW 

2 
1810   POKE  CONTRL, 122! POKE  CONT 

RL+2, 0! POKE  CDNTRL+6, 1 
1B20   POKE  1NTIN,0: VDISYS(0):EN 

DlREM  TURN  ON  MOUSE  CURSQ 

R 
2020   REM  Input  yes /no 
2040   INPUT  IN»! IN»-CHR«(flSC{LE 

FT$(IN«+"  ",1))  AND  223) 
2046   IF  IN*="Y"  OR  IN*="N"  THE 

N  IN=-(IN*="Y") ! RETURN  EL 

SE  2040 
2060   REM  input  application 
20S0   TEMP=CVI (PAPPS*) 
2090   BOSUB  25B0:FaR  1=1  TO  NUM 

APPSjPRINT  TAB(12>| I) ")  " 

i 
2093   IF  (CVKPAPPS*)  AND  2-^(1- 

1 ) ) >0  THEN  COLOR  3 
Z09S   PRINT  APPS* ( I ) ! COLOR  1:NE 

XT 
2110   BDTOXY  12,17lPRINT"SBlBct 

/deselect  from  the  above: 

2115   INPUT  IN*: IF  LEN(IN«)=0  T 

HEN  RETURN 
2120   I N=VAL (IN»):IF  IN>NUMAPPS 

OR  IN=0  THEN  2090 
2130   IF  {2'-{IN-l)  AND  TEMP)>0 

THEN  TEMP-TEMP  AND  NOT  12^ 

CIN-1>)!BOTO  2140 
2135   TE«P=TEMP  OR  2'>(IN-1) 
2140   PAPPS»=MKI« (TEMP ): GOTO  20 

90 
2160   REM  input  computer 
2190   TeMP"CVI CPCOMPS*) 
2190   BOSUB  25801  FOR  1  =  1  TO  NUM 

COMPSiPRINT  TflBtl2)|I)"> 

"! 
2193   IF  (CVKPCOMPSO  AND  2"  ( I 

-1) ) >0  THEN  COLOR  3 
2200   PRINT  COMPS* ( I ) : COLOR  1:N 

EXT 
2210   BOTOXY  12, 17:PRINT"Select 

/deselect  from  the  «bove: 

"; 

2215   INPUT  IN»i IF  LEN<IN»)=0  T 

HEN  RETURN 
2220   IN-VAL(IN«) I  IF  1N>NUMC0MP 

S  OR  IN=0  THEN  2190 
2230   IF  (2-^<IN-l)  AND  TEMP)  >0 

THEN  TEMP-TEMP  AND  N0T<2'' 

( lN-1 ) ) ! eOTO  2240 
2235   TEMP=2-"(IN-1)  OR  TEMP 
2240   PCOMPSS^MKI* < TEMP) : GOTO  2 

190 
2260   REM  check  for  key  press 
22B0   PRINT  "Press  any  key  to  c 

ontlnue,  RETURN  to  termin 

ate.  " 
2285   PRINT!SERROR=0iA=INP(2) :T 

EMP«=CHR«(A) 
2290   IF  TEMP»<>CHR«(13)  THEN  R 

ETURN  ELSE  SERRDR"! I RETUR 

N 
2330   REM  input  date  as  in« 
2350   PRINT"DatB  CMon  YR)i"|iIN 

PUT  INS 
2355   IF  LEN«IN«)=0  THEN  RETURN 

2360   F=0iFOR  IN-1  TO  12 

2365   IF  LEFT«{IN*,3>=M0NTHS«(I 

N>  THEN  IN*=t10NTH9«<IN)+R 

IGHT»<IN*,3)!F=1 
2370   NEXT: IF  F=l  AND  MID«(IN«, 

4,1)="  "  THEN  IN»=IN»+SPA 

CE*  t4 ) 1  RETURN 
2360   print: PRINT"Date  was  not 

the  correct  formati  use  M 

on-YRj  i.e.,  Jan  B5" 
2385   print! goto  2350 
2400   REM  transfer  from   record 


strings  to  current  string 

s 
2420   PNEXTREC«=RNEXTREC»! PAPPS 

♦=R APPS  i  PCOMPS»=RC0MP» : PN 

AMES^'RNAME* 
2425   PDATE*=RDATES:PPAGE*=RPAB 

E«! PCOMMENT«=RCaMMENT« i RE 

TURN 
2440   REM  transfer  from  current 
strings  to  record  string 

s 
2460   LSET  RNEXTREC»=-PNEXTREC«! 

LSET  RAPPS=PAPPS«:LSET  RC 

OMP*=PCDMPS« 

2465  LSET  RNAME»=PNfiME»: LSET  R 
DATE«=PDATE« : LSET  RPftBE»= 
PPAGES 

2466  LSET  RCOMMENTS-PCOMMENTS; 
RETURN 

2480   REM  print  current  data 
2500   PR INT" Name:" 5 PN AMES: PRINT 

"Date! ";PDATE»; "  /  page"; 

CVI (PPAGES) 
2505   PR I NT " Comment : " ; PCOMMENT* 

2510   PRINT"Class:"; :FOR  1=1  TO 

NUMAPPS 
2515   IF  (2'-(I-l)  AND  CVKPAPPS 

*>)>0  THEN  PRINT  "  " ; APPS 

«(I)S",") 
2520   NEXT: PRINT 
2530   PRINT"Computer»i"j!FOR  1= 

1  TO  NUMCOMPS 
2535   IF  (2'"(I-1)  AND  CVI  (PCDMP 

S«))>0  THEN  PRINT  ■■  ";COM 

PS$ ( I ) J " , "  ; 
2340   NEXT!PRINT!PRINT!RETURN 
2560   REM  clear  the  screen 
2580   CLEARW  2!BQTDXY  (35-LEN<T 

ITLE»)/2),0!PRINT  TITLESi 

BOTOXY  1,0 
2S85   IF  PRINTER  THEN  PRINT"Pri 

nter  on" 
2590   BDTOXY  0,1: RETURN 
2610   REM  press  return  prompt 
2630   SERRDR-=0iPRINT"Press  RETU 

RN: "; : INPUT  INS 
2635   IF  ASC CLEFTS (INS+"  ",!)) 

AND  223=ASC<"EI")  THEN  SER 

R0R=1 
2640   RETURN 

2660   REM  output  to  printer 
2680   LPRINT  PNAMESj TAB (49) ; PDA 

TESj"  /  page:  "jCVUPPABES 

) : RETURN 
2700   REM  allocate  a  new  record 

2720   GET  #1,1: 1NTREC=CVI (RNEXT 

RECS)ilF  1NTRECO0  THEN  2 

760 
2730   INTREC=CVI(RPAGE«):INTREC 

=INTREC+1:L5ET  RPAGE*=MKI 

S(INTREC) :PUT  #1,1 
2740   RETURN: REM  variable  INTRE 

C  holds  the  place  of  the 

next  blank  record 
2750   REM  use  this  code  if 

there  have  been  deleted  t 

ecords 
2760   QET«1, INTREC:TEMP*=RNEXTR 

ECS: GET#1, 1: LSET  RNEXTREC 

S=TEMP«:PUT  #1,1 
2770   RETURN 
2820   IF  ERR=57  THEN  NDFILE=1:C 

LOSE  #1: RESUME  420 
2830   PRINT  "Error  #"ERR"in  lin 

e"ERL"."!STDP 


SOTsty: 

3.5"  DISKETTES 

Certified  by  Apple  for  Macintosh 

■  Ssldy  Auto  Stiuttir  protects  against  fingerprints  and  dust 
•  StlBly  Auto  Diiign  is  tieat-resistanl  and  guards  against 
disk  damage  during  tiandllng 


Price  Per  Diskette 


ss 

DS 

Box 

1.09 

1.59 

Bulk 

1.17 

1.29 

GUARANTEED 
lOO'h  ERROR  FREE 


POLY  PACK  5'/4"  DISKETTES 

[From  Leading  Mfr.) 
JljJ*-^  100%  Error  Free 

^Cjjx^        Lifetime  Warranty 
^oof^^-       •  Blank  Jackets 

'p^^p'*^  •  Envelopes 

Sold  in  Lots  of  100  Only 


QUALITY  PRINTER  RIBBONS 


Apple  Jmagewritgr  . S3. 95  ea 

Okiclata  80/82/83 SI.'IS  ea 

Epson  LX  80/90 $295  ea 

Sold  6/Boi  (Minimum) 

Mm  Order  $25  OO  S4H  Continenlal  USA:  $4.00/100 
or  fewer  dis'ts  discount  at  300  Ribboris  $.25  eac^i. 
Foreig n orders APO/FPO.pfease call  Wl residents a(3d 
4%  tax.  Prices  subject  to  change  wilhDulnoIice.  Hours 
B:30AM-7:OO  PM 


H 


Precision  Data  Products'" 

P.O.  Box  «3(i7.  Grsnd  Rapids.  Ml  49518 
l6l6)iS:0457  •  Mictiigan  t^00«2-2468 
Outsiiic  Mkliigan  1-800-238-0028 


LEARN 


MASTER  COMPUTERS 
IN  YOUR  OWN  HOME 

/  you  cm  write  pragt^inis  iind  gel  ;i 
cDOiputw  to  do  iust  wl«l  yyn  want  Gel  t!ie 
mosi  oul  d  dTTf  compuief.  and  avoid  hfiving 
lo  pay  the  fiit]h  price  ol  pre-packaged 
software. 

LEARN  AT  YOUR  OWN  PACE 
IN  YOUR  SPARE  TIME 


to  learii  about  compuiers.  operations,  appli- 
cations and  pftxjranwnng  rn  your  spare  time, 
at  honie  Our  instruciors  provide  Y^  w\^ 
one-on-one  oxiseling 


LEARN  EVEN  BEFORE  YOU  DEaOE  ON  A  COMPUTER 

Everyttiing  is  explaEned  in  smpte  language.  You  will  enjoy  leamrrjg  to 
use  a  computer-EVBI  IF  YOU  DONT  OWN  ONE.  Learn  to  progfan  on 
any  personal  romputw:  IBM.  APPL£  OM^fmM.  IRS.  and  more. 

BE  YOUR  OWN  COMPUTER  EXPERT 

Prwjrainniing  is  Ute  besl  way  to  leam  to  use  compulers.  and  we  can 
show  you  UiB  besl-and  mosl  ecoiumieal-way  to  learn  progra mining! 
Send  loday  tor  yoyr  tree  information  pacicage.  No  o&Ngation.  No 
salesman  will  call.         > 


halix 


INSTITUTE 


CENTER  FOR  COIvSPUTER  EOtJCATION 


Hflux  INSTITUTE  CE^r^£f^FO^COWi^TEft£OlJCATiOND£PI   &1-4  I 
T5i3VV  OLYMPIC  =  226  LOS  ANGELES.  CA  90015-389^  ■ 


Seitd  me  inloflTiasicxi  oo  ho*  !  can  learn  abour  comoul'CS  aro  pro- 
gfafnmnnq  si  hofne' 


City- 
I 
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News  &  Products 


Robotic  Workshop  For  Apple 

MuUibotics  MB230  Workshop  from  Ac- 
cess Software  is  now  available  for  the 
Apple  II  and  He  computers  as  well  as 
the  Commodore  64.  This  robotic  con- 
struction set  contains  the  B-lOO  inter- 
face which  you  can  use  with  the  Apple 
interrupt  card  to  turn  your  Apple  into  a 
robotic  control  system.  By  controlling 
the  Capsella"^"  motorized  parts,  you  can 
perform  hundreds  of  robotic  projects 
and  experiments.  Designed  for  begin- 
ning and  more  advanced  computer  us- 
ers, the  workshop  features  over  50 
educational  projects  to  describe  the 
nature  of  robotics. 

The  Apple  interrupt  card  is 
included. 

Retail  price  for  the  MuUibotics 
MB230  Workshop  is  $169.95  for  the  Ap- 
ple 11  and  lie  version  and  $149.95  for 
the  Commodore  64/128  version. 

Access  Software,  1561  S.  2560  West, 
Woods  Cross,  UT  84087 
Circle  Reader  Service  Number  200. 


New  Software  From 
Classic  image 

Classic  Image  has  introduced  a  number 
of  new  software  packages,  including 
the  Classic  Compu  Card  Series.  This  se- 
ries includes  an  assortment  of  greeting 
card  collections  in  tractor-feed,  fan-fold 
form  to  be  used  on  a  variety  of  personal 
computers.  The  collections  are  avail- 
able in  a  number  of  themes — Celebrate, 
Party  Time,  An  Invitation,  Thank  You,  A 
Slwrt  Note,  We've  Moved,  It's  An  Open 
House,  and  Season's  Greetings.  Each  card 
is  colorfully  illustrated  and  designed  so 
you  can  add  personal  messages  on  the 
inside.  The  collections  are  packaged 
with  50  stationery  cards  and  40  match- 
ing envelopes  for  $11.95  per  collection. 

Another  package  in  the  series  is  the 
Parchment  Paper  Series,  which  is  also  in 
tractor-feed,  fan-fold  form  and  is  avail- 
able in  brown,  gold,  and  gray  parch- 
ment tones.  Retail  price  for  this  package 
is  $7.95. 

The  third  release  in  Classic  Image's 
new  series  is  the  disk  and  address  label 
package.  The  labels  are  one  label-width 
across  on  continuous  tractor-feed,  fan- 
fold  form.  The  disk  labels  are  designed 


for  either  3%-inch  or  5  Vi -inch  disks  and 
have  a  suggested  retail  price  of  $4.95 
per  100.  Labels  for  only  the  3'/2-inch 
disk  are  $8.95  per  100,  and  those  for 
S'A-inch  disks  are  $4.95.  Bulk  prices  are 
also  available. 

A  new  game,  Diablo,  runs  on  the 
Amiga,  Atari  ST,  and  Commodore 
64/128.  This  mazelike,  arcade-style 
game  consists  of  240  sections  of  mov- 
able track,  with  a  ball  and  two  tracks  on 
each  of  120  movable  panels.  The  object 
is  to  arrange  the  convoluted  track  to 
keep  the  ball  on  a  continuous  course. 
After  a  track  has  been  crossed,  it  is 
removed.  The  game  becomes  challeng- 
ing as  more  and  more  of  the  track  dis- 
appears.  The  price  for  this  game  is 
$29.95. 

The  Disk  Library  program  is  a  com- 
prehensive utility  for  the  Atari  ST  that 
files,  categorizes,  and  cross-references 
each  disk,  folder  and  file  in  a  library.  It 
automatically  updates  disks,  folders, 
and  files  as  you  add  them  to  your  li- 
brary, You  can  also  add  your  own  com- 
ments. Suggested  retail  price  for  Disk 
Library  is  $49.95. 

Classic  Image,   510  Rhode  Island 
Ave.,  Cherry  Hill,  N]  08002 
Circle  Reader  Service  Number  201. 


Amiga  Drawing  Pad 

EasyL  is  a  pressure-activated  drawing 
pad  that  lets  you  draw  directly  on  the 
Amiga  with  a  pencil.  This  new  product 
from  Anakin  Research  works  with  pop- 
ular graphics  packages' such  as  /mages. 
Animator,  Deluxe  Paint,  and  DPainf. 
The  source  code  is  included  and  con- 
tains instructions  to  let  you  customize 
the  system  to  any  application  like  im- 
age processing,  frame  sequencing,  and 
more.  It  also  provides  a  self-contained 
advanced  tutorial  in  Amiga 
programming, 

EASYL  is  an  8y2  X  13-inch  draw- 
ing surface  with  1024  X  1024-pixel 
resolution  and  a  coordinate  capture  rate 
of  250  coordinate  pairs  per  second. 

ACME-  or  OXBERRY-compatible 
registration  pegs  for  producing  frame- 
by-frame  character  animation  are 
available. 

Price  in  U.S.  funds  is  $499, 


Anakin  Research,  100  Westmore  Dr., 
Unit  nc,  Rexdale,  Ont.,  Canada  M9V 
5C3 
Circle  Reader  Service  Number  202. 


Talking  Software 
For  Youngsters 

Firebird's  new  Talking  Teacher  utilizes 
Software  Speech™  by  Electronic  Speech 
Systems  to  provide  children  ages  two 
through  eight  with  three  separate  learn- 
ing games,  This  educational  program 
teaches  capital  and  lowercase  letter 
identification  and  keyboard  location, 
spatial  relationships,  and  basic  vocabu- 
lary with  initial  letter  sounds  for  over 
100  words.  The  graphics,  play  action, 
and  sound  effects  are  designed  to  hold 
the  child's  attention  and  promote 
learning. 

Talking  Teacher  is  available  for  the 
Commodore  64/128  with  Commodore 
1541  or  1571  disk  drives  and  requires 
no  special  hardware  for  the  computer  to 
talk. 

Retail  price  is  $39.95. 

Firebird  Licensees,  P.O.  Box  49, 
Ramsey,  NJ  07446 
Circle  Reader  Service  Number  203. 


Create  Your  Own  Awards 

AwardWare  from  Hi  Tech  Expressions 
lets  you  design  and  print  customized 
certificates,  awards,  announcements, 
stationery,  memos,  checks,  coupons, 
and  tickets.  It  includes  a  large  selection 
of  graphics,  fonts,  and  borders. 

A  special  feature  is  the  create-an- 
award-disk  option,  with  which  you  can 
design  an  award,  copy  it  to  another 
disk,  and  send  the  disk  to  a  friend. 
When  your  friend  loads  the  disk,  the 
award  appears  on  the  screen  in  a  flash- 
ing marquee.  He  or  she  then  can  print 
the  award  for  a  keepsake. 

AwardWare  is  available  for  the 
Commodore  64/128;  Atari  400/800, 
800XL,  1200XL,  130XE;  Apple  He,  lie, 
in-  with  64K;  and  IBM  PC,  XT,  AT,  and 
PCjr  with  256K  and  a  color  graphics 
adapter. 

The  software  supports  the  follow- 
ing dot-matrix  printers  and  interfaces: 
Writer,  Scribe,  Star  Gemini,  Okidata 
92/93,  Epson,  Citizen,  Star,  Tandy 
DMP  130,  Panasonic  1090/1091,  IBM 
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(except  ProPrinter),  super  serial  card, 
standard  serial,  Apple  lie  standard  par- 
allel, and  Apple  II  parallel. 

AwardWare  retails  for  $14.95  and 
contains  two  flippy  disks  for  the  IBM/ 
Apple  and  Commodore/ Atari.  Hi  Tech 
Expressions,  2699  S.  Bayshore  Dr.,  Suite 
lOOOA,  Coconut  Grove,  Fl  33133. 
Circle  Reader  Service  Number  204. 


Talk  To  Your  Computer 

Hearsay  has  released  a  speech  synthe- 
sizer/voice recognition  peripheral  that 
lets  you  talk  with  your  Apple,  Commo- 
dore 64/128,  or  IBM  personal  comput- 
ers. The  Hearsay  1000  permits  you  to 
verbally  command  almost  any  program 
that  requires  keyboard  input,  and  it  en- 
ables off-the-shelf,  text-based  software 
to  talk  back.  The  purpose  of  the  product 
is  to  add  a  new  dimension  to  education- 
al and  entertainment  software. 

Additionally,  Hearsay  has  intro- 
duced a  line  of  educational,  voice  inter- 
active software  for  children,  Aqua's 
Circus,  Think  Bank,  and  Rhyme  and  Rea- 
son are  all  designed  to  teach  children 
the  power  of  verbal  interaction  and 
help  make  learning  more  enjoyable. 

The  Commodore  version  of  Hear- 
say 1000  has  a  suggested  retail  price  of 
$79.95;  the  Apple  and  IBM  PC  versions 
are  $149.95.  The  Apple  version  also 
includes  a  speaker  and  microphone. 
The  Commodore  version  software  is 
available  for  $29.95  each,  and  the  Ap- 
ple and  IBM  versions  are  $39.95. 

Hearsay  ,  1825  74th  St.,  Brooklyn, 
NY  11204 
Circle  Reader  Service  Number  205. 


Maxell  Disks 

Maxell  has  introduced  a  line  of  lower 
priced  single-  and  double-sided  disks. 
The  new  disks  meet  ANSI  specifica- 
tions and  contain  fewer  subcompon- 
ents than  higher  priced  disks  from 
Maxell.  The  IS  and  2S  come  with  a 
single  rather  than  replaceable  label  set 
and  ten  write -protect  labels.  The  outer 
package  of  each  ten-pack  has  a  cross- 
reference  index  listing  the  computers 
for  which  the  disks  are  designed.  All 
the  disks  are  fully  certified. 

A  ten-pack  of  the  single-density 
disks  (the  IS)  retails  for  $8.99,  and  the 
double-density  disks  (2S)  retail  for 
$10.49  per  ten  pack. 

Maxell  Corp.  of  America,  60  Oxford 
Dr.,  Moonachie,  NJ  07074 
Circle  Reader  Service  Number  206. 

New  Abacus 
Software  Products 

Abacus  Software  has  released  two  new 
software  packages  for  the  Commodore 
64  and  128.  SpeedTerm  is  a  command- 


driven  terminal  communications  pro- 
gram that  lets  you  communicate  with 
other  computer  users  via  online  ser- 
vices such  as  CompuServ,  GEnie,  Del- 
phi, The  Source,  and  others.  Originally 
designed  for  the  128,  it  now  includes 
both  the  64  and  128  versions  in  one 
package. 

SpeedTerm  features  a  command 
mode  with  over  30  commands  and 
user-defined  function  keys.  The  pro- 
gram offers  a  large  capture  buffer,  24K 
for  the  64  version  and  45K  for  the  128 
version.  In  addition,  SpeedTerm  sup- 
ports both  XMODEM  and  Punter  file- 
transfer  protocols  plus  partial  VT52 
terminal  emulation,  and  it  works  with 
most  popular  modems.  The  128  version 
can  be  used  with  either  a  40-  or  an  80- 
column  monitor  and  a  1541  or  1571 
disk  drive.  The  complete  package  in- 
cludes a  70-page  manual  with  tutorials. 

Personal  Portfolio  Manager  has 
been  updated  to  a  include  a  version  for 
the  Commodore  128.  The  new  version 
contains  many  of  the  features  of  the 
original  64  version  plus  additional 
functions.  It  can  be  used  by  the  home  or 
professional  user  to  manage  a  portfolio, 
obtain  up-to-the-minute  quotes  and 
news,  and  perform  analyses. 

Other  uses  include  recording  tax- 
able or  nontaxable  dividends  and  inter- 
est income,  reconciling  brokerage 
accounts,  tailoring  reports,  and  entering 
quotes  manually  or  automatically 
through  Warner  Computer  Systems 
and  Dow  Jones.  The  software  includes 
an  autorun  and  timing  feature  so  the 
system  will  log  on,  update  quotes,  log 
off,  and  print  reports.  Over  1000  open 
transactions  can  be  retained  on  a  single 
disk. 

Personal  Portfolio  Manager  for  the 
Commodore  128  can  be  used  with 
either  a  40-  or  an  80-column  monitor 
and  a  1541  or  1571  disk  drive. 

SpeedTerm  retails  for  $39.95;  Per- 
sonal Portfolio  Manager,  $59,95. 

Abacus   Software,    P.O.   Box   7219, 
Grand  Rapids,  MI  49510 
Circle  Reader  Service  Number  207. 


Commodore  128 
Monoctirome  Cables 

Innovative  Computer  Accessories  has 
two  new  cables  exclusively  for  the 
Commodore  128.  The  cables  allow 
monochrome  80-column  display  on 
any  composite  monitor  with  RCA  jacks. 
They  are  not  intended  for  use  with  RGB 
monitors  or  standard  television  sets. 

The  80-column  mono  cable  con- 
nects with  either  the  Commodore  1701 
or  1702  monitor  with  a  built-in  toggle 
switch.  This  cable  is  also  compatible 
with  IBM  computers. 

The  40/80-column  switch  cable  is 
for  all  other  monitors  with  RCA  jacks 


and  no  toggle  switch.  With  these  moni- 
tors, the  customer  must  turn  off  the 
equipment  and  change  cables  in  order 
to  toggle  between  40  or  80  columns. 
The  40/80-column  switch  cable  pro- 
vides the  switch  to  avoid  this  problem. 
The  80-column  mode  is  monochrome 
while  the  40-column  screen  is  still  in 
the  full  16  colors. 

All  the  cables  are  manually  tested, 
and  there  are  no  exposed  wires  or  PC 
boards. 

Innovative   Computer  Accessories, 
1249  Downing  St.,  P.O.  Box  789,  Imperial 
Beach,  CA  92032-0837 
Circle  Reader  Service  Number  208, 


Word  Processing  On 
Your  Amiga 

With  ProWrite,  any  document  you  cre- 
ate will  print  out  exactly  as  it  appears 
on  the  screen — including  page  breaks, 
line  headers,  and  footers.  This  word 
processing  program  for  the  Amiga  has 
six  pull-down  menus  with  mouse  con- 
trol, or  it  can  accept  commands  through 
the  keyboard.  You  can  vary  the  type 
styles — bold,  italic,  underline,  super- 
script, or  subscript — and  even  add  color 
for  emphasis.  Eight  windows  can  be 
opened  at  one  time  so  you  can  cut  and 
paste  both  text  and  IFF  color  graphics 
among  them.  Plus,  ProWrite  is  compati- 
h\^  with  Flow,  the  Amiga  idea 
processor. 

Available  from  New  Horizons 
Software,  ProWrite  requires  an  Amiga 
with  512K  memory  and  Kickstart  ver- 
sion 1.2.  Suggested  retail  price  is 
$124,95, 

New  Horizons  Software,  P.O.   Box 
43167,  Austin,  TX  78745 
Circle  Reader  Service  Number  209. 


New  Atari  ST  Version 
of  GATO 

GATO,  the  Worid  War  II  submarine 
simulation  from  Spectrum  HoloByte,  is 
now  available  for  the  Atari  ST.  This 
action  game  has  20  different  missions 
that  you,  the  captain,  must  complete 
before  returning  to  the  Allied  quad- 
rants. There  are  ten  levels  to  provide 
varying  degrees  of  difficulty  to  even  the 
most  accomplished  submarine  pilot. 
Your  controls  to  monitor  speed,  head- 
ing, depth,  and  radar  tracking  are 
shown  on  two  screen  displays.  You 
hear  the  torpedoes  as  they  are  fired 
from  the  tubes,  and  the  explosion  of  the 
ships  you  hit. 

The  ST  version  of  GATO  features 
both  forward  and  aft  torpedo  tubes, 
mines,  and  save/load  capability  to 
store  games  in  progress. 

GATO  is  available  for  the  Apple 
lie,  lie,  IIGS,  IBM  PC,  Commodore  64, 
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Macintosh,  and  Atari  ST.  Suggested  re- 
tail price  for  the  ST  version  is  $39,95. 
Spectrum   HohByte,    1050   Walnut, 
Suite  325,  Boulder,  CO  80502 
Circle  Reader  Service  Number  210. 


Galactic  War  Games 

In  the  arcade-style  game  POWER,  from 
Accolade,  you  fight  against  the  hostile 
Demoid  Empire  to  save  Earth  from  ter- 
rorist attack.  The  Demoids  occupy 
Earth's  vital  Mitonium  conversion 
plant.  Earth's  only  source  of  powder.  To 
win,  you  must  infiltrate  the  occupied 
asteroid  and  disable  the  converter.  To 
ward  off  attacks  by  the  Demoid  battle 
ships,  you  can  fire  missiles  and  light 
phasors  using  your  joystick.  You  must 
also  monitor  the  pov^er  consumption  of 
your  space  vehicle,  using  your  jetpack 
to  get  you  safely  to  one  of  your  eight 
reserve  vehicles. 

To  reach  the  converter,  you  must 
successfully  complete  seven  levels  of 
play.  Then  you  must  penetrate  the  force 
field  to  disable  the  Mitonium  povifer 
plant. 

POWER  is  being  released  under 
Accolade's  Avantage  brand,  v^'hich  is 
the  mid-priced  line  of  entertainment 
software, 

POWER  is  available  on  the  Com- 
modore 64/128  for  $14.95, 

Accolade,  20833  Stevejis  Creek  Blvd., 
Cupertino,  CA  950U 
Circle  Reader  Service  Number  211. 

Mfgraph  Announces  New 
ST  Products 

Migraph  has  released  two  new  prod- 
ucts and  has  updated  another  one  for 
the  Atari  ST,  LabelMaster  is  an  easy-to- 
use  GEM-based  label  maker  and  mail- 
ing list  manager.  This  package  lets  you 
combine  bitmapped  graphics  with  a 
mailing  list  manager  to  produce  illus- 
trated labels.  You  can  use  designs  for 
the  graphics  library  on  the  disk  or  cre- 
ate your  own  designs  using  the  graphic 
editor.  The  mailing  list  manager  fea- 
tures search,  sort,  delete,  modify,  and 
the  ability  to  flag  a  record  for  personal 
or  business  entries.  The  program  is 
compatible  with  PrintMaster. 

Fast  is  a  desktop  accessory  that 
operates  in  all  three  resolutions  with 
parameters  that  can  be  changed  to  meet 
individual  needs.  It  includes  ST  DOS,  a 
utility  that  lets  you  perform  the  most 
common  DOS  commands  without  re- 
turning to  the  desktop;  an  editor  that 
includes  many  of  the  features  of  more 
expensive  editors  such  as  search  and 
replace  and  block  editing;  and  Card 
File,  a  database  that  you  can  set  up  to 
use  as  an  address  book.  This  has  the 
ability  to  print  part  or  all  of  the  database 
in  a  variety  of  formats.  Fast  also  in- 


cludes a  calculator,  calendar,  ASCII  ta- 
ble, and  a  clock, 

Migraph  has  also  released  version 
2.0  of  Easy-Draw  for  desktop  publish- 
ing. This  is  an  object-oriented  drawing 
program  used  to  create  graphics,  busi- 
ness charts,  flow  diagrams,  and  techni- 
cal illustrations.  It  can  be  adapted  to 
desktop  publishing  because  the  pro- 
gram allows  you  to  create  text  and 
graphics  on  the  same  page.  Version  2.0 
has  added  several  new  features  such  as 
the  ability  to  load  ASCII  files,  flip  or 
mirror  any  object,  break  text  blocks, 
edit  polylines,  or  load  up  to  five  fonts. 
There  are  two  additional  font  sizes — 7 
and  28  point — for  a  total  of  six  fonts. 
The  Arrange  commands  let  you  evenly 
space  and  center  objects.  Plus,  there  are 
both  metric  and  inch  measurements 
and  page  sizes.  The  program  has  full 
GEM  implementation, 

Easy-Draw  works  with  Epson  FX80 
Graphics-compatible,  Atari  SMM804, 
and  Gemini  lOX  printers. 

The  retail  price  for  Easy-Draw  is 
$79.95;  an  upgrade  to  the  2.0  version  is 
available  for  $40, 

Suggested  retail  price  for  label- 
Master  is  $39,95  and  $49,95  for  Fast. 

Migraph,  720  S.  333rd  St.,  Suite  201, 
Federal  Way,  WA  98003 
Circle  Reader  Service  Number  212. 


New  Fantasy 
Role-Playing  Game 

Sierra  On-Line  has  released  a  new  fan- 
tasy role-playing  game.  Wrath  of  Den- 
ethenor  is  based  on  a  Nordic  legend 
about  a  prince  who  sells  his  soul  to  the 
devil.  In  this  version,  the  player  is  an 
adventurer  in  one  of  the  lands  sur- 
rounding Denethenor's  domain  who 
tries  to  defeat  Denethenor  by  taking  the 
Prince's  illegally  obtained  treasures. 
The  player  can  lake  the  form  of  a  sor- 
cerer, thief,  or  fighter.  The  game  is  not 
copy-protected. 

Wrath  of  Denethenor  is  available  for 
the  Commodore  64/128  and  the  Apple 
II  series  with  64K  or  more. 

Retail  price  for  the  Commodore 
version  is  $19.95,  and  the  price  for  the 
Apple  version  is  $24.95. 

Sierra  On-Line,  P.O.  Box  485,  Coarse- 
gold,  CA  93614 
Circle  Reader  Service  Number  213. 


Dot-Matrix  Printer  For  Amiga 
And  ST 

Commodore  Amiga  and  Atari  ST  own- 
ers who  are  looking  for  excellent  graph- 
ics output  and  high-volume  printing 
may  wish  to  consider  the  Seikosha  MP- 
1300AI  printer.  Its  features  include 
standard  parallel  and  serial  interfaces; 
rear  and  bottom  paper  feed;  IBM/Ep- 


son emulation;  an  8-million-character- 
life  cartridge  ribbon;  and  optimal 
speeds  of  300  characters  per  second 
(cps)  in  draft  mode  and  50  cps  in  near- 
letter  quality  (NLQ)  mode. 

The  Seikosha  MP-1300AI  is 
backed  by  a  two-year  limited  warranty, 
and  retails  for  $699  (monochrome)  and 
$854  (color). 

Seikosha  America,  1111  Macarthur 
Blvd.,  Mahwah.  NJ  07430 
Circle  Reader  Service  Number  214. 


Popular  Baseball  Simulation 
Available  For  Macintosh 

Accolade  has  announced  that  its  so- 
phisticated baseball  simulation  Hard- 
ball is  now  available  for  the  Apple 
Macintosh. 


fl 


Accolade's  popular  baseball  simulation, 
Hardball,  is  now  available  for  the 
Macintosh. 

Hardball  features  3-D  field  per- 
spective, including  the  center  field  pit- 
cher/batter view,  a  behind-the-plate 
view  of  right  field,  and  a  behind-the- 
plate  view  of  left  field.  Up  to  six  differ- 
ent pitches — fast  balls,  sliders,  curve 
balls,  screw  balls,  change-ups,  and 
sinkers — may  be  thrown  by  either  a 
left-  or  right-handed  pitcher.  Through- 
out the  game,  a  variety  of  managerial 
decisions  can  be  made.  All  strategic  and 
physical  maneuvers  are  joystick- 
controlled.  Good  animation,  natural 
playability,  and  ultra-large  graphics 
add  to  the  game's  realism. 

The  Macintosh  version  of  Hardball 
retails  for  $44.95. 

Accolade,  20833  Stevens  Creek  Blvd., 
Cupertino,  CA  95014 
Circle  Reader  Service  Number  215. 
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From  the  publishers  of  COMPUTE! 


April  1987 
COMPUTE!  Disk 


All  the  exciting  programs  from  the  past  three  issues  of  COMPUTE!  are  on 
timesaving,  error-free,  floppy  disks  that  are  ready  to  load  on  your  IBM  PC 
and  PCjr  or  Commodore  64  and  128.  The  April  1987  COMPUTE!  Disks  con- 
tain the  entertaining  and  useful  Commodore  or  IBM  programs  from  the 
February,  March,  and  April  1987  issues  of  COMPUTE!. 

The  April  1987  COMPUTE!  Disk  costs  $12.95  plus  $2.00  shipping  and 
handling  and  is  available  only  from  COMPUTE!  Publications.  Please 
specify  whether  you  need  a  Commodore  or  IBM  disk. 

For  added  savings  and  convenience,  you  may  also  subscribe  to  the  COM- 
PUTE! Disk.  At  a  cost  of  only  $39.95  a  year  (a  $12.00  savings),  you'll  receive 
four  disks,  one  every  three  months.  Each  disk  will  contain  all  the  programs 
for  your  machine  from  the  previous  three  issues  of  COMPUTE!.  To  order  a 
subscription,  call  toll  free  800-247-5470  (in  lA  800-532-1272). 

This  is  an  excellent  way  to  build  your  software  library  while  you  enjoy  the 
quality  programs  from  COMPUTE!. 

Disks  and  subscriptions  are  available  for  Apple,  Atari,  Commodore  64  and 
128,  and  IBM  personal  computers.  Call  for  details. 

For  more  information  or  to  order  individual  issues  of  the  April  1987 
COMPUTE!  Disk,  call  toll  free  1-800-346-6767  (in  NY  212-887-8525)  or  write 
COMPUTE! Disk,  P.O.  Box  5038,  F.D.R.  Station,  New  York,  NY  10150. 

COMPUTE!^  Publicationsjnc.® 

Port  o\  ABC  Consumer  Maoazines.  Inc  ^^^^ 
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COMPUTEi's  Guide 
To  Typing  In  Programs 


Computers  are  precise — type  the  pro- 
gram exactly  as  listed,  including  neces- 
sary punctuation  and  symbols,  except 
for  special  characters  noted  below.  We 
have  provided  a  special  listing  conven- 
tion as  well  as  a  program  to  check  your 
typing — "The  Automatic  Proofreader." 

Programs  for  the  IBM,  TI-99/4A, 
and  Atari  ST  models  should  be  typed 
exactly  as  listed;  no  special  characters 
are  used.  Programs  for  Commodore, 
Apple,  and  Atari  400/800/XL/XE 
computers  may  contain  some  hard-to- 
read  special  characters,  so  we  have  a 
listing  system  that  indicates  these  con- 
trol characters.  You  will  find  these 
Commodore  and  Atari  characters  in 
curly  braces;  do  not  type  the  braces.  For 
example,  {CLEAR}  or  {CLR}  instructs 
you  to  insert  the  symbol  which  clears 
the  screen  on  the  Atari  or  Commodore 
machines.  A  complete  list  of  these  sym- 
bols is  shown  in  the  tables  below.  For 
Commodore,  Apple,  and  Atari,  a  single 
symbol  by  itself  within  curly  braces  is 
usually  a  control  key  or  graphics  key.  If 
you  see  {A},  hold  down  the  CONTROL 
key  and  press  A,  This  will  produce  a 
reverse  video  character  on  the  Commo- 
dore (in  quote  mode),  a  graphics  char- 
acter on  the  Atari,  and  an  invisible 
control  character  on  the  Apple. 

Graphics  characters  entered  with 
the  Commodore  logo  key  are  enclosed 
in  a  special  bracket:  ]^Ai\.  In  this  case, 
you  would  hold  down  the  Commodore 
logo  key  as  you  type  A.  Our  Commo- 
dore listings  are  in  uppercase,  so  shifted 
symbols  are  underlined.  A  graphics 
heart  symbol  (SHIFT-S)  would  be  listed 
as  S.  One  exception  is  {SHIFT- 
SPACE}  .  When  you  see  this,  hold  down 
SHIFT  and  press  the  space  bar.  If  a 
number  precedes  a  symbol,  such  as  {5 
RIGHT},  {6  S},  or  f<8  Q:^'  y°^  would 
enter  five  cursor  rights,  six  shifted  S's, 
or  eight  Commodore-Q's.  On  the  Atari, 
inverse  characters  (white  on  black) 
should  be  entered  with  the  inverse  video 


Atari  400/800/XL/XE 


When  you  see  Type 

tCLEflRJ  ESC 

tUPJ  ESC 

{DOWN}  ESC 

tLEFT}  ESC 

<:RrQHT>  ESC 

<BACK  S>  ESC 

{DELETE}  ESC 

{INSERT}  ESC 

{DEL  LINE}  ESC 

{INS  LINE}  ESC 

{TAB}  E9C 

CCLR  TAB>  EBC 

{SET  TAB}  ESC 

{BELLJ  ESC 

{ESO  ESC 


SHIFT  < 
CTRL  - 
CTRL  = 
CTRL  + 
CTRL  * 
DELETE 
CTRL  DELETE 
CTRL  INSERT 
SHIFT  DELETE 
SHIFT  INSERT 
TAB 

CTRL  TAB 
SHIFT  TAB 
CTRL  2 
ESC 


See 

•V 

■r 

4- 

•«■ 

-» 
< 

a 

a 
a 

k 
a 
a 


Clear  Screen 
Cursor  Up 
Cursor  Down 
Cursor  Left 
Cursor  Right 
Backspace 
Delete  character 
Insert  character 
Delete  line 
Insert  line 
TAB  key 
Clear  tab 
Set  tab  stop 
Ring  buzzer 
ESCape  key 


SfflFT 

CLR/HOME 

aRfHOME 

SHIFT 

t  CRSR  I 

\  CRSR  j 

♦-CRSR  -• 


.-CRSR-. 


Commodore  PET/CBM/VIC/64/ 1 28/ 1 6/+4 

When  You 
Press:  See:  Read: 

gag 
gs^ 

g7^ 
§6§ 

{  Fl  } 
!  F2  ) 

{   F3  ) 

{  R  1 

(  F5  i 

{  F6  } 

!  F7  } 

i  F8  1 


When  Ysu 
Read: 

{CLR} 

{HOME) 

{UP} 

{DOWN) 

{LEFT) 

{RIGHT} 

{RVS) 

{OFF} 

{BLK} 

{WHT) 

{RED) 

{CYN) 

{PUR) 

{GRN} 

{BLU} 

{YEL) 


CTRL  1 

0 

CTRL 

I 

CTRL  [ 

1 

CTRL 

3 

CTRL 

4 

CTRL 

5 

CTRL 

6 

CTRl 

7 

CTRL 

8 

n 
m 


m 


Ei 


Press: 


See: 


COMMODORE 


COMMODORE! 


COMMODORE 


COMMODORE 


COMMODORE 


COMMODORE 


COMMODORE 


COMMODORE 


SB 

HE 
Bll 

■■ 


H 


fl 

B 

SHIFT 

fl 

Bl 

a 

SHIFT 

a 

IB 

m 


SHIFT 

fi 

a 

SHIFT         17 
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key  (Atari  logo  key  on  400/800  models). 

Whenever  more  than  two  spaces 
appear  in  a  row,  they  are  listed  in  a 
special  format.  For  example,  {6 
SPACES}  means  press  the  space  bar  six 
times.  Our  Commodore  listings  never 
leave  a  single  space  at  the  end  of  a  line, 
instead  moving  it  to  the  next  printed 
line  as  {SPACE}. 

Amiga  program  listings  contain 
only  one  special  character,  the  left  ar- 
Tow  (-)  symbol.  This  character  marks 
the  end  of  each  program  line.  Wherever 
you  see  a  left  arrow,  press  RETURN  or 
move  the  cursor  off  the  line  to  enter 
that  line  into  memory.  Don't  try  to  type 
in  the  left  arrow  symbol;  it's  there  only 
as  a  marker  to  indicate  where  each  pro- 
gram line  ends. 

The  Automatic  Proofreader 

Type  in  the  appropriate  program  listed 
below,  then  save  it  for  future  use.  The 
Commodore  Proofreader  works  on  the 
Commodore  128,  64,  Plus/4,  16,  and 
VIC-20.  Don't  omit  any  lines,  even  if 
they  contain  unfamiliar  commands  or 
you  think  they  don't  apply  to  your  com- 
puter. When  you  run  the  program,  it 
installs  a  machine  language  program  in 
memory  and  erases  its  BASIC  portion 
automatically  (so  be  sure  to  save  sever- 
al copies  before  running  the  program 
for  the  first  time).  If  you're  using  a 
Commodore  128,  Plus/4  or  16,  do  not 
use  any  GRAPHIC  commands  while 
the  Proofreader  is  active.  You  should 
disable  the  Commodore  Proofreader 
before  running  any  other  program.  To 
do  this,  either  turn  the  computer  off  and 
on  or  enter  SYS  64738  (for  the  64),  SYS 
65341  (128),  SYS  64802  (VIC-20),  or 
SYS  65526  (Plus/4  or  16).  To  reenable 
the  Proofreader,  reload  the  program 
and  run  it  as  usual.  Unlike  the  original 
VIC/64  Proofreader,  this  version  works 
the  same  with  disk  or  tape. 

On  the  Atari,  run  the  Proofreader 
to  activate  it  (the  Proofreader  remains 
active  in  memory  as  a  machine  lan- 
guage program);  you  must  then  enter 
NEW  to  erase  the  BASIC  loader.  Press- 
ing SYSTEM  RESET  deactivates  the 
Atari  Proofreader;  enter  PRINT 
USR(1536)  to  reenable  it. 

The  Apple  Proofreader  erases  the 
BASIC  portion  of  itself  after  you  run  it, 
leaving  only  the  machine  language  por- 
tion in  memory.  It  works  with  either 
DOS  3.3  or  ProDOS.  Disable  the  Apple 
Proofreader  by  pressing  CTRL-RESET 
before  running  another  BASIC  program. 

The  IBM  Proofreader  is  a  BASIC 
program  that  simulates  the  IBM  BASIC 
line  editor,  letting  you  enter,  edit,  list, 
save,  and  load  programs  that  you  type. 
Type  RUN  to  activate.  Be  sure  to  leave 
Caps  Lock  on,  except  when  typing  low- 
ercase characters. 


Once  the  Proofreader  is  active,  try 
typing  in  a  line.  As  soon  as  you  press 
RETURN,  either  a  hexadecimal  number 
(on  the  Apple)  or  a  pair  of  letters  (on  the 
Commodore,  Atari,  or  IBM)  appears. 
The  number  or  pair  of  letters  is  called  a 
checksum. 

Compare  the  value  displayed  on 
the  screen  by  the  Proofreader  with  the 
checksun\  printed  in  the  program  list- 
ing in  the  magazine.  The  checksum  is 
given  to  the  left  of  each  line  number. 
Just  type  in  the  program  a  line  at  a  time 
(without  the  printed  checksum),  press 
RETURN  or  Enter,  and  compare  the 
checksums.  If  they  match,  go  on  to  the 
next  line.  If  not,  check  your  typing; 
you've  made  a  mistake.  Because  of  the 
checksum  method  used,  do  not  type 
abbreviations,  such  as  ?  for  PRINT.  On 
the  Atari  and  Apple  Proofreaders, 
spaces  are  not  counted  as  part  of  the 
checksum,  so  be  sure  you  type  the  right 
number  of  spaces  between  quote 
marks.  The  Atari  Proofreader  does  not 
check  to  see  that  you've  typed  the  char- 
acters in  the  right  order,  so  if  characters 
are  transposed,  the  checksum  still 
matches  the  listing.  The  Commodore 
Proofreader  catches  transposition  er- 
rors and  ignores  spaces  unless  they're 
enclosed  in  quotation  marks.  The  IBM 
Proofreader  detects  errors  in  spacing 
and  transposition, 

IBM  Proofreader  Commands 

Since  the  IBM  Proofreader  replaces  the 
computer's  normal  BASIC  line  editor,  it 
has  to  include  many  of  the  direct-mode 
IBM  BASIC  commands.  The  syntax  is 
identical  to  IBM  BASIC.  Commands 
simulated  are  LIST,  LLIST,  NEW, 
FILES,  SAVE,  and  LOAD.  When  listing 
your  program,  press  any  key  (except 
Ctrl-Break)  to  stop  the  listing.  If  you 
enter  NEW,  the  Proofreader  prompts 
you  to  press  Y  to  be  especially  sure  you 
mean  yes. 

Two  new  commands  are  BASIC 
and  CHECK.  BASIC  exits  the  Proof- 
reader back  to  IBM  BASIC,  leaving  the 
Proofreader  in  memory.  CHECK  works 
just  like  LIST,  but  shows  the  checksums 
along  with  the  listing.  After  you  have 
typed  in  a  program,  save  it  to  disk. 
Then  exit  the  Proofreader  with  the 
BASIC  command,  and  load  the  pro- 
gram as  usual  (this  replaces  the  Proof- 
reader in  memory).  You  can  now  run 
the  program,  but  you  may  want  to  re- 
save  it  to  disk.  This  will  shorten  it  on 
disk  and  make  it  load  faster,  but  it  can 
no  longer  be  edited  with  the  Proofread- 
er. If  you  want  to  convert  an  existing 
BASIC  program  to  Proofreader  format, 
save  it  to  disk  with  SAVE  "filename", A. 


Program  1:  Atari 
Proofreader 

By  Charles  Brannon,  Program  Editor 

100  8RAPHICS  0 

110  FOR  1=1536  TO  1700:REfl 

D  ftiPOKE  I, A: CK=CK+ft:N 

EXT  I 
120  IF  CKO19072  THEN  ?  "E 

rror  in  DflTft  Statement 

s.   Check  Typing. "jEND 


130 

140 

150 
160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

2B0 

290 

300 

310 

320 


fl  =  USR 
?  :  ? 
eader 
END 
DATA 

3,  201 
DflTft  . 
8,243 
DATA 
6,153 
DATA 
4,6,2: 
DATA 
1,78, 
DATA 
,  105 
DATA 
,  141, 
DATA 
238,  1 
DATA 
24,  24 
DATA 
46,  B 
DATA 
,240 
DATA 
0,96 
DATA 
145,  B 
DATA 

4,  74 
DATA 
165,2 
DATA 
B,  169 
DATA 
0,96 


(  1536) 

"Automatic  Proo-fr 
Now  Artivated." 


104, 160,0, 
, 69,240,7 


69,2 

200,  I 


,  185,26, 


200,200,  I' 
5,96,200,  1. 


153f  2bj  Oy  , 
, 26, 3, 162 


;,  26,  3,  162 
0,  189,0,  2: 

!32,224, 16 
208,245, 1, 
6,  169,6,  1 
79,6, 24,  1 

,  1, 141 ,95 
6,  173,5,  2: 
96,6, 169 
0, 133,203 

.25, 241 , 93 
244, 241 ,  1 

H .76. 205. 


92, 34, 20 
69,  74 
200, 169, 


228, 157, 7 

69, 93,  14 

41 

73, 4, 228 

2B, 105, 0 


2  .  ., 

1  ,76, 205, 
0,0,0,0,0 


201 

155, 240, 1 
7,72,24,  1; 
203,  133,  2; 

,72, 152, 72, 
72, 160, 0, 1 

38, 200, 192, 
208,249, It 
74,74,24, 
161 , 160, 3 

!03,41 ,  15,  : 
105,  161  ,  21 


,96,247, 

6 
15, 241, 1 
238 
,32,62,2 


105.  ._ 

, 0, 133, 

170,  104,  1 


.  2 

20 


3, 201 ,32 

01 

03, 104, 4 

,  138 

169, 128, 

,  40 

65,203,7 

105 

,  145,88, 

24 

00, 145, 8 

3,  104 

6B, 104, 4 


Program  2:  IBM  Proofreader 

By  Charles  Brannon,  Program  Editor 

10  'Automatic  Proo-f reader  Vers 
Ion  3.0  (Lines  205,206  adde 
d/190  delBtBd/470,490  chang 
ed  -from  V2.0> 
100  DIM  L«(500) ,LNUM< 500): COLO 
R  0,7, 7: KEY  OFF: CLS: MAX=0! 
LNUM(0) =65536! 
110  ON  ERROR  GOTO  120: KEY  15,  C 
HRS(4)+CHR*<70):ON  KEY (15) 
GOSUB  640: KEY  (15)  ON: GOT 
0  130 
120  RESUME  130 

130  DEF  SEG=E(H40:W=PEEK(S<H4A) 
140  ON  ERROR  GOTO  650; PR I NT: PR 

INT"ProDf reader  Ready. " 
150  LINE  INPUT  L«:Y=CSRLIN-INT 

(LEN(Lt)/W)-l: LOCATE  Y, 1 
160  DEF  SEG=0:POKE  1050,30:PDK 
E  1052, 34: POKE  1054,0: POKE 
1055, 79: POKE  1056, 13: POKE 
1057,28: LINE  INPUT  L*:DEF 
SEO:IF  L*=""  THEN  150 
170  IF  LEFT*(Lt, 1)="  "  THEN  L* 
=MID*(L*,2):GaT0  170 
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180  IF  VOL (LEFT* (L4, 2J »=0  ftND 
MID«(L«,3, 1)="  "  THEN  L»=M 
ID«!LS,4) 

200  IF  ASC(L*)>S7  THEN  260  'no 
line  number,  there-fore  no 
mmand 

205  BL=INSTR(L«, '■  "):IF  BL=0  T 
HEN  BL»=L»:GDTO  206  ELSE  B 
L*=LEFTt(L«,BL-l) 

206  LNUM=VAL(eL*) :TEXT*=MID*(L 
*,LEN(STR«(LNUM) )+l) 

210  IF  TEXTt=""  THEN  GDSUB  540 

:IF  LNUM=LNUM<P)  THEN  SDSU 

B  560:GDTD  150  ELSE  150 
220  CKSUM=0:FaR  1  =  1  TO  l.EN(L*) 

: CKSUM= ( CKSUM+flSC ( M I D* ( L« , 

I))*I)  AND  255: NEXT: LOCATE 
Y.IjPRINT  CHR»(65+CKSUM/1 

6)+CHR*t65+(CKSUH  AND  15)) 

+  "  ■■+L* 
230  GDSUB  540: IF  LNUM(P)=LNUM 

THEN  L«(P)=TEXT»:BOTD  150 

'replace  line 
240  BOSUB  5B0:GQTa  150  'insert 

the  line 
260  TEXT*="":FDR  1=1  TO  LEN{L« 

) : A=ASC (MID*  CL*, I ) ) ; TEXT*= 

TEXT»+CHR»(A+32tCA>96  AND 

A<123) ) :NEXT 
270  DELIMITER=INSTR(TEXT*,  "  ") 

s  CDI1MAND»=TEXT«:  ARG*="  " :  IF 
DELIMITER  THEN  CDMMANDS=L 

EFT«(TEXT*,DELIMITER-1)  :AR 

S»=MID«(TEXT»,DELIMITER-t-l) 
ELSE  DELIMITER=INSTR(TEXT 

*,CHRt(34-)  )  :IF  DELIMITER  T 

HEN  COMMAND»=LEFT* (TEXTS, D 

ELIMITER-1) :ARG«=MID*(TEXT 

*, DELIMITER) 
280  IF  COMMAND*<>"LIST"  THEN  4 

10 
290  OPEN  "5crn:"  FOR  OUTPUT  AS 

#1 
300  IF  ARG$=""  THEN  FIRST=0:P= 

HAX-1:G0TD  340 
310  DEL1MITER=INSTR(ARG*, "-")  ; 

IF  DELIMITER=0  THEN  LNUM=V 

AL(flR6») : GDSUB  540;FIRST=P 

:QOTO  340 
320  FIRST=VAL(LeFTt(AR6S,DELIM 

ITER ) ) : LAST=VftL ( M 1 D* ( ARG» , 

DELIMITER+D) 
330  LNUM=FIR5T:G0SUB  540: FIRST 

=P:LNUM=L AST: GDSUB  540: IF 

P=0  THEN  P=MAX-1 
340  FOR  X=FIRST  TO  P:N«=MID«(S 

TR«(LNUM(X) ) ,2)+"  " 
350  IF  CKFUAG=0  THEN  A*="":GDT 

0  370 

360  CKSUM=0:A*=N»+L«(X):FOR  1= 

1  TO  LEN(A*) :CKSUM=(CKSUM+ 
ASC(MID»(AS,I))*I)  AND  255 
: NEXT: A*=CHR« (65+CKSUM/ 16) 
+CHR«(65+(CKSUM  AND  15))+" 

■  I 

370  PRINT  *1,A*+N»+L»(X) 

380  IF  INKEYtO""  THEN  X=P 

390  NEXT  : CLOSE  #1:CKFLAG=0 

400  GOTO  130 

410  IF  COMHflND»="LLIST"  THEN  0 

PEN  "Iptl:"  FOR  OUTPUT  AS 

#1:GOTO  300 
420  IF  COMMfiND*="CHECK"  THEN  C 

KFLA6=1:GDT0  290 
430  IF  COMMAND$<>"SAVE"  THEN  4 

50 

440  GDSUB  600: OPEN  ARG*  FOR  OU 
TPUT  AS  «1:ARG*="";60T0  30 
0 

450  IF  COMMAND*<>"LDAD"  THEN  4 
90 


460  60SUE  600: OPEN  ARG*  FDR  IN 

PUT  AS  #liMAX=0:P=0 
470  WHILE  NOT  EOF (1): LINE  INPU 

T  #1,L«:BL=INSTR(L*, "  "):B 

L»=LEFT*(L»,BL-1> :LNUM(P)= 

VAL (BL«) : L» (P) =MID» (L*, LEN 

(STR* (VAL (BL») ) ) +1 ) ; P=P+1 : 

MEND 
480  MAX=P: CLOSE  #l:GOTa  130 
490  IF  COMMAND*="NEW  THEN  INP 

UT  "Erase  program  -  Are  yo 

Li  sure";L»:IF  LEFT«(L$,1)  = 

"y"  DR  LEFT»(L*, l)="y"  THE 

N  MAX=0:LNUM(0) =65536!: GOT 

0  130: ELSE  130 
500  IF  CaMMAND$="BASIC"  THEN  C 

OLOR  7, 0,0: ON  ERROR  GOTO  0 

:CLS:END 
510  IF  C0MMAND4O-FILES"  THEN 

520 
515  IF  ARGS=""  THEN  ARES="A! " 

ELSE  SEL=1:G0SUB  600 
517  FILES  ARG«:60TO  130 
520  PRINT"Syntax  errDr":GDT0  1 

30 
540  P=0iWHlLE  LNUM>LNUM(P>  AND 

P<MAX: P=P+1 : WEND: RETURN 
560  MAX=MAX-1:F0R  X=P  TO  MAX:L 

NUM{X)=LNUM(X+1) :L*(X)=L»( 

X+l>: NEXT: RETURN 
5B0  MAX=MAX+1:FDR  X=MAX  TO  P+1 
STEP  -1:LNUM(X)=LNUM(X-1) 

: L* ( X) =L* ( X-1 ) : NEXT: L* (P) = 

TEXT* : LNUM ( P ) =LNUM : R  ETURN 
600  IF  LEFT«(ARG«,1)<>CHR*(34) 
THEN  520  ELSE  ARG*=MID«(A 

R6*,2) 
610  IF  RIGHTSCARS*, 1)=CHR*(34) 
THEN  ARG»=LEFT*(AR6*,LEN( 

ARG*)-1) 
620  IF  SEL-0  AND  INSTR ( ARG», " . 

")=0  THEN  ARQ*=AR13*+".BAS" 
630  SEL=0: RETURN 
640  CLOSE  #l:CKFLAG=0:PRINT"St 

apped.  '■;  RETURN  150 
650  PRINT  "Error  «"; ERR: RESUME 
150 

Program  3;  Commodore 
Proofreader 

By  Philip  Nelson,  Assistant  Editor 

10    VEC=PEEK(772)+256*PEEK(773) 

:LO=43 :HI=44 
20    PRINT    "AUTOMATIC    PROOFREADE 

R   FOR    ";:IF   VEC=42364    THEN 

{space] PRINT    "C-64" 
30    IF    VEC=505  56    THEN    PRINT    "VI 

C-20" 
40    IF   VEC=3S15e    THEN   GRAPHIC    C 

LR: PRINT    "PLUS/ 4    &    16" 
50    IF   VEC=17165    THEN    LO=45:HI= 

46:GRAPHIC    CLR:PRINT"128" 
60    SA=(PEEK(LO)+256*PEEK(HI))+ 

6:ADR=SA 
70    FOR    J=0    TO    166: READ    BYT : POK 

E    ADR,BYT!ADR=ADR+1 :CHK=CHK 

+BYT!NEXT 
80    IF    CHKO20570    THEN    PRINT    "* 
ERROR*    CHECK    TYPING    IN    DATA 
STATEMENTS " : END 
90    FOR    J=l    TO    5:READ    RF,LF,HF: 

RS=SA+RF:HB=INT(RS/256):LB= 

RS-(256*HB) 
100    CHK=CHK+RF+LF+HF:POKE    SA+L 

F, LB: POKE    SA+HF, HB :NEXT 
110    IF   CHKo 22054    THEN    PRINT    " 

*ERROR*    RELOAD    PROGRAM    AND 


[ SPACE jCHECK    FINAL    LINE" 5  EN 

D 
120    POKE    SA+149,PEEK(772) iPOKE 

SA+150,PEEK(773) 
130    IP   VEC=17165    THEN    POKE    SA+ 

14,  22:  POKE    SA+18,  23  ;  POKESA-f- 

29 , 224 : POKESA+139 , 224 
140    PRINT    CHRS(147) ;CHR5(17) ;" 

PROOFREADER    ACTIVE": SYS    SA 
150    POKE    HI,PEEK(HI)+1:P0KE    (P 

EEK(LO)4-256*PEEK(HI)  )-l,0:j!l 

EW 
160    DATA    120,169,73,141,4,3,16 

9,3,141,5,3 
170    DATA   38,96,165,20,133,167, 

165,21,133,168,169 
180    DATA    0,141,0,255,162,31,18 

1,199,157,227,3 
190    DATA    202,16,248,169,19,32, 

210,255,169,18,32 
200    DATA  210,255,160,0,132,180 

,132,176,136,230,180 
210    DATA    200,185,0,2,240,46,20 

1,34,208,8,72 
220    DATA    165,176,73,255,133,17 

6,104,72,201,32,208 
230    DATA    7,165,176,208,3,104.2 

08,226,104, 166,130 
240    DATA    24,165,167,121,0,2,13 

3,167,165,168,105 
250    DATA    0,133,168,202,208,239 

,240,202,165,167,69 
260    DATA    168,72,41,15,168,185, 

211,3,33,210,255 
270    DATA    104,74,74,74,74,168,1 

65,211,3,32,210 
280    DATA    255,162,31,189,227,3, 

149,199,202,16,248 
290    DATA    169,146,32,210,255,76 

,86,137,65,66,67 
300    DATA   68,69,70,71,72,74,75, 

77,80,81,82,83,88 
310    DATA    13,2,7,167,31,32,151, 

116,117,151,128,129,167,136 

,137 

Program  4:  Apple 
Proofreader 

Bi/  Tim  Victor,  Editorial  Programmer 

10  C  =  0:  FOR  1  =  768  TO  76B  + 

63:  READ  AiC  =  C  +  A:  POKE  I 

,A!  NEXT 
20  IF  C  <  >  7258  THEN  PRINT  "ER 

ROR  IN  PROOFREADER  DATA  STAT 

EMENTS":  END 
30  IF  PEEK  (190  «  256)  <  >  76  T 

HEN  POKE  56,0!  POKE  57,3:  CA 

LL  1002:  GOTO  50 
40  PRINT  CHR*  (4) ; "IN*A*300" 
50  POKE  34,0:  HOME  :  POKE  34,1: 
VTAB  2:  PRINT  "PROOFREADER 

INSTALLED" 
60  NEW 

100  DATA  216,32,27,253,201,141 
110  DATA  208,60,138,72,169,0 
120  DATA  72,189,255,1,201,160 
130  DATA  240,8,104,10,123,255 
140  DATA  1,105, 0,72, 202, 20B 
150  DATA  238,104,170,41,15,9 
160  DATA  48,201,58,144,2,233 
170  DATA  5.7,141,1,4,138,74 
180  DATA  74,74,74,41,15,9 
190  DATA  48,201,58,144,2,233 
200  DATA  57,141,0,4,104,170 
210  DATA  169,141,96  ® 
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mil  V  Machine  Language  Entry  Program 
IVILi^  For  Commodore  64  And  1 28 


Ottis  Cowper,  Technicol  Editor 


"MLK"  is  a  labor-saving  utility  that  allows 
almost  fail-safe  entry  of  machine  language 
programs.  Included  are  versions  for  the 
Commodore  64  and  128. 


T)^e  in  and  save  some  copies  of  which- 
ever version  of  MLX  is  appropriate  for 
your  computer  (you'll  want  to  use  it  to 
enter  future  ML  programs  from  COM- 
PUTE!). Program  1  is  for  the  Commodore 
64,  and  Program  2  is  for  the  128  (128 
MLX  can  also  be  used  to  enter  Commo- 
dore 64  ML  programs  for  use  in  64 
mode).  When  you're  ready  to  enter  an 
ML  program,  load  and  run  MLX.  It  asks 
you  for  a  starting  address  and  an  ending 
address.  These  addresses  appear  in  the 
article  accompanying  the  MLX-format 
program  listing  you're  typing. 

If  you're  unfamiliar  with  machine 
language,  the  addresses  (and  all  other 
values  you  enter  in  MLX)  may  appear 
strange.  Instead  of  the  usual  decimal 
numbers  you're  accustomed  to,  these 
numbers  are  in  hexadecimal — a  base  16 
numbering  system  commonly  used  by 
ML  programmers.  Hexadecimal — hex 
for  short — includes  the  numerals  0-9 
and  the  letters  A-F.  But  don't  worry — 
even  if  you  know  nothing  about  ML  or 
hex,  you  should  have  no  trouble  using 
MLX. 

After  you  enter  the  starting  and  end- 
ing addresses,  you'll  be  offered  the  op- 
tion of  clearing  the  workspace.  Choose 
this  option  if  you're  starting  to  enter  a 
new  listing.  If  you're  continuing  a  listing 
that's  partially  typed  from  a  previous 
session,  don't  choose  this  option, 

A  functions  menu  will  appear.  The 
first  option  in  the  menu  is  ENTER 
DATA.  If  you're  just  starting  to  type  in  a 
program,  pick  this.  Press  the  E  key,  and 
type  the  first  number  in  the  first  line  of 
the  program  listing.  If  you've  already 
typed  in  part  of  a  program,  type  the  line 
number  where  you  left  off  typing  at  the 
end  of  the  previous  session  (be  sure  to 
load  the  partially  completed  program 
before  you  resume  entry).  In  any  case, 
make  sure  the  address  you  enter  corre- 
sponds to  the  address  of  a  line  in  the 
listing  you  are  entering.  Otherwise,  you'll 
be  unable  to  enter  the  data  correctly.  If 
you  pressed  E  by  mistake,  you  can  return 
to  the  command  menu  by  pressing  RE- 
TURN alone  when  asked  for  the  address. 
(You  can  get  back  to  the  menu  from  most 
options  by  pressing  RETURN  with  no 
other  input.) 


Entering  A  Listing 

Once  you're  in  Enter  mode,  MLX  prints 
the  address  for  each  program  line  for 
you.  You  then  type  in  all  nine  numbers 
on  that  line,  beginning  with  the  first  two- 
digit  number  after  the  colon  (:).  Each  line 
represents  eight  data  bytes  and  a  check- 
sum. Although  an  MLX-format  listing 
appears  similar  to  the  "hex  dump"  list- 
ings from  a  machine  language  monitor 
program,  the  extra  checksum  number  on 
the  end  allows  MLX  to  check  your  typ- 
ing. (Commodore  128  users  can  enter 
the  data  from  an  MLX  listing  using  the 
built-in  monitor  if  the  rightmost  column 
of  data  is  omitted,  but  we  recommend 
against  it.  It's  much  easier  to  let  MLX  do 
the  proofreading  and  enor  checking  for 
vou.) 


Figure  1:  64  MLX  Keypad 
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Figure  2:  128  MLX  Keypad 
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When  you  enter  a  line,  MLX  recal- 
culates the  checksum  from  the  eight 
bytes  and  the  address  and  compares 
this  value  to  the  number  from  the  ninth 
column.  If  the  values  match,  you'll  hear 
a  bell  tone,  the  data  will  be  added  to  the 
workspace  area,  and  the  prompt  for  the 
next  line  of  data  will  appear.  But  if  MLX 
detects  a  typing  error,  you'll  hear  a  low 
buzz  and  see  an  error  message.  The  line 
will  then  be  redisplayed  for  editing. 

invaiid  Characters  Banned 

Only  a  few  keys  are  active  while  you're 
entering  data,  so  you  may  have  to  un- 
learn some  habits.  You  do  not  type 
spaces  between  the  columns;  MLX 
automatically  inserts  these  for  you.  You 
do  not  press  RETURN  after  typing  the 
last  number  in  a  line;  MLX  automatical- 
ly enters  and  checks  the  line  after  you 
type  the  last  digit. 

Only  the  numerals  0-9  and  the 
letters  A-F  can  be  typed  in.  If  you  press 
any  other  key  (with  some  exceptions 
noted  below),  you'll  hear  a  warning 
buzz.  To  simplify  typing,  128  MLX  re- 
defines the  function  keys  and  -I-  and  — 
keys  on  the  numeric  keypad  so  that  you 
can  enter  data  one-handed.  In  either 
case,  the  keypad  is  active  only  while 
entering  data.  Addresses  must  be  en- 
tered with  the  normal  letter  and  num- 
ber keys.  The  figures  below  show  the 
keypad  configurations  for  each  version. 

MLX  checks  for  transposed  charac- 
ters. If  you're  supposed  to  type  in  AO 
and  instead  enter  OA,  MLX  will  catch 
your  mistake.  There  is  one  error  that 
can  slip  past  MLX:  Because  of  the 
checksum  formula  used,  MLX  won't 
notice  if  you  accidentally  type  FF  in 
place  of  00,  and  vice  versa.  And  there's 
a  very  slim  chance  that  you  could  gar- 
ble a  line  and  still  end  up  with  a  combi- 
nation of  characters  that  adds  up  to  the 
proper  checksum.  However,  these  mis- 
takes should  not  occur  if  you  take  rea- 
sonable care  while  entering  data. 

Editing  Features 

To  correct  typing  mistakes  before  fin- 
ishing a  line,  use  the  INST/DEL  key  to 
delete  the  character  to  the  left  of  the 
cursor.  (The  cursor-left  key  also  de- 
letes.) If  you  mess  up  a  line  really  badly, 
press  CLR/HOME  to  start  the  line  over. 
The  RETURN  key  is  also  active,  but 
only  before  any  data  is  typed  on  a  line. 
Pressing  RETURN  at  this  point  returns 
you  to  the  command  menu.  After  you 
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type  a  character  of  data,  MLX  disables 
RETURN  until  the  cursor  returns  to  the 
start  of  a  line.  Remember,  you  can  press 
CLR/HOME  to  quickly  get  to  a  line 
number  prompt. 

More  editing  features  are  available 
when  correcting  lines  in  which  MLX 
has  detected  an  error.  To  make  correc- 
tions in  a  line  that  MLX  has  redisplayed 
for  editing,  compare  the  line  on  the 
screen  with  the  one  printed  in  the  list- 
ing, then  move  the  cursor  to  the  mis- 
take and  type  the  correct  key.  The 
cursor  left  and  right  keys  provide  the 
normal  cursor  controls.  (The  INST/ 
DEL  key  now  works  as  an  alternative 
cursor-left  key.)  You  cannot  move  left 
beyond  the  first  character  in  the  line.  If 
you  try  to  move  beyond  the  rightmost 
character,  you'll  reenter  the  line.  Dur- 
ing editing,  RETURN  is  active;  pressing 
it  tells  MLX  to  recheck  the  line.  You  can 
press  the  CLR/HOME  key  to  clear  the 
entire  line  if  you  want  to  start  from 
scratch,  or  if  you  want  to  get  to  a  line 
number  prompt  to  use  RETURN  to  get 
back  to  the  menu. 

Display  Data 

The  second  menu  choice,  DISPLAY 
DATA,  examines  memory  and  shows 
the  contents  in  the  same  format  as  the 
program  listing  (including  the  check- 
sum). When  you  press  D,  MLX  asks  you 
for  a  starting  address.  Be  sure  that  the 
starting  address  you  give  corresponds 
to  a  line  number  in  the  listing.  Other- 
wise, the  checksum  display  will  be 
meaningless,  MLX  displays  program 
lines  until  it  reaches  the  end  of  the 
program,  at  which  point  the  menu  is 
redisplayed.  You  can  pause  the  display 
by  pressing  the  space  bar.  (MLX  finish- 
es printing  the  current  line  before  halt- 
ing.) Press  space  again  to  restart  the 
display.  To  break  out  of  the  display  and 
get  back  to  the  menu  before  the  ending 
address  is  reached,  press  RETURN. 

Other  Menu  Options 

Two  more  menu  selections  let  you  save 
programs  and  load  them  back  into  the 
computer.  These  are  SAVE  FILE  and 
LOAD  FILE;  their  operation  is  quite 
straightforward.  When  you  press  S  or  L, 
MLX  asks  you  for  the  filename.  You'll 
then  be  asked  to  press  either  D  or  T  to 
select  disk  or  tape. 

You'll  notice  the  disk  drive  starting 
and  stopping  several  times  during  a 
load  or  save  (save  only  for  the  128 
version).  Don't  panic;  this  is  normal 
behavior.  MLX  opens  and  reads  from  or 
writes  to  the  file  instead  of  using  the 
usual  LOAD  and  SAVE  commands 
(128  MLX  makes  use  of  BLOAD).  Disk 
users  should  also  note  that  the  drive 
prefix  0:  is  automatically  added  to  the 
filename  (line  750  in  64  MLX),  so  this 
should  not  be  included  when  entering 


the  name.  This  also  precludes  the  use  of 
@  for  Save-with-Replace,  so  remember 
to  give  each  version  you  save  a  different 
name.  The  128  version  makes  up  for 
this  by  giving  you  the  option  of  scratch- 
ing the  existing  file  if  you  want  to  reuse 
a  filename. 

Remember  that  MLX  saves  the  en- 
tire workspace  area  from  the  starting 
address  to  the  ending  address,  so  the 
save  or  load  may  take  longer  than  you 
might  expect  if  you've  entered  only  a 
small  amount  of  data  from  a  long  list- 
ing. When  saving  a  partially  completed 
listing,  make  sure  to  note  the  address 
where  you  stopped  typing  so  you'll 
know  where  to  resume  entry  when  you 
reload. 

MLX  reports  the  standard  disk  or 
tape  error  messages  if  any  problems  are 
detected  during  the  save  or  load.  (Tape 
users  should  bear  in  mind  that  Commo- 
dore computers  are  never  able  to  detect 
errors  during  a  save  to  tape.)  MLX  also 
has  three  special  load  error  messages: 
INCORRECT  STARTING  ADDRESS, 
which  means  the  fUe  you're  trying  to 
load  does  not  have  the  starting  address 
you  specified  when  you  ran  MLX; 
LOAD  ENDED  AT  address,  which 
means  the  file  you're  trying  to  load 
ends  before  the  ending  address  you 
specified  when  you  started  MLX;  and 
TRUNCATED  AT  ENDING  AD- 
DRESS, which  means  the  file  you're 
trying  to  load  extends  beyond  the  end- 
ing address  you  specified  when  you 
started  MLX.  If  you  see  one  of  these 
messages  and  feel  certain  that  you've 
loaded  the  right  file,  exit  and  rerun 
MLX,  being  careful  to  enter  the  correct 
starting  and  ending  addresses. 

The  128  version  also  has  a  CATA- 
LOG DISK  option  so  you  can  view  the 
contents  of  the  disk  directory  before 
saving  or  loading. 

The  QUIT  menu  option  has  the 
obvious  effect — it  stops  MLX  and  en- 
ters BASIC.  The  RUN/STOP  key  is  dis- 
abled, so  the  Q  option  lets  you  exit  the 
program  without  turning  off  the  com- 
puter. (Of  course,  RUN/STOP-RES- 
TORE also  gets  you  out,)  You'll  be 
asked  for  verification;  press  Y  to  exit  to 
BASIC,  or  any  other  key  to  return  to  the 
menu.  After  quitting,  you  can  type 
RUN  again  and  reenter  MLX  without 
losing  your  data,  as  long  as  you  don't 
use  the  clear  workspace  option. 

The  Finished  Product 

When  you've  finished  typing  all .  the 
data  for  an  ML  program  and  saved  your 
work,  you're  ready  to  see  the  results. 
The  instructions  for  loading  and  using 
the  finished  product  vary  from  program 
to  program.  Some  ML  programs  are 
designed  to  be  loaded  and  run  like 
BASIC  programs,  so  all  you  need  to 
type  is  LOAD   "filename", 8  for  disk 


(DLOAD  "filename"  on  the  128)  or 
LOAD  "filename"  for  tape,  and  then 
RUN.  Such  programs  will  usually  have 
a  starting  address  of  0801  for  the  64  or 
ICOl  for  the  128.  Other  programs  must 
be  reloaded  to  specific  addresses  with  a 
command  such  as  LOAD  "file- 
name",8,l  for  disk  (BLOAD  "filename" 
on  the  128)  or  LOAD  "filename", 1,1  for 
tape,  then  started  with  a  SYS  to  a  partic- 
ular memory  address.  On  the  Commo- 
dore 64,  the  most  common  starting 
address  for  such  programs  is  49152, 
which  corresponds  to  MLX  address 
CDOO.  In  either  case,  you  should  always 
refer  to  the  article  which  accompanies 
the  ML  listing  for  information  on  load- 
ing and  running  the  program. 

An  Ounce  Of  Prevention 

By  the  time  you  finish  typing  in  the  data 
for  a  long  ML  program,  you  may  have 
several  hours  invested  in  the  project. 
Don't  take  chances — use  our  "Auto- 
matic Proofreader"  to  type  the  new 
MLX,  and  then  test  your  copy  thorough- 
ly before  first  using  it  to  enter  any  sig- 
nificant amount  of  data.  Make  sure  all 
the  menu  options  work  as  they  should. 
Enter  fragments  of  the  program  starting 
at  several  different  addresses,  then  use 
the  Display  option  to  verify  that  the 
data  has  been  entered  correctly.  And  be 
sure  to  test  the  Save  and  Load  options 
several  times  to  insure  that  you  can 
recall  your  work  from  disk  or  tape. 
Don't  let  a  simple  typing  error  in  the 
new  MLX  cost  you  several  nights  of 
hard  work. 


Program  1:  MLX  For 
Commodore  64 

SS  10  REM  VERSION  1.1:  LINES  8 
30,950  MODIFIED,  LINES  4 
85-487  ADDED 
POKE  56,50:CLR:DIH  IN?, 
I,J,A,B,A?,B$,A(7),N$ 
C4=48:C6=16:C7a7!Z2=2!Z 
4=254 :Z5=255iZ6=256!Z7= 
127 

FA=PEEK (45 ) +26*PEEK ( 46 ) 
: BS=PEEK ( 55 ) +Z6*PEEK ( 56 
)  !HS=="0123456789ABCDEF" 
R$=CHR? (13 ) :L5=" (LEFT ) " 
:S$="  ":D$=CHR5(20) :Z5= 
CHRS(0):T$="C13  RIGHT]" 

CQ  140  80=5427 2: FOR  I=SD  TO  SD 
+23: POKE  I,0:NEXTt POKE 
{SPACElSD+24,15sPOKE  78 
8,52 

FC  150  PRINT"(CLRj"CHRS(142)CH 
R$(8):P0KE  53280, 15 :POK 
E  53281,15 

EJ  160  PRINT  T$"  {BED}{RVS) 
(2  SPACES }gB  @| 
(2  SPACES}"SPC{2B)" 
(2  SPACES H OFF j{BLU)  ML 
X  II  {REDJ(RVSl 
{2  SPACESj"SPC(2e)" 
(12  SPACES) (BLU)" 

FR  170  PRINT" {3  DOWN) 

{3  SPACES ICOMPUTE! 'S  MA 


EK 

100 

DM 

110 

CJ 

120 

SB 

130 
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CHINE  LANGUAGE  EDITOR 
{3  DOWN)" 

JB  180  PRINT "{BLK J  STARTING  ADD 
RESSE4i";  tGOSUB300.'SA=A 
DtGOSUB1040sIF  F  THEN18 
0 

GF  190  PRINT"(BLK} (2  SPACES}EN 
DING  ADDRESSE43"; :GOSUB 
3a0:EA!»AD:GOSUB1030jIF 
[SPACE  3 F  THEN190 

KR  200  INPUT" {3  DOWN] {BLK}CLEA 
R  WORKSPACE  [:Y/N:E4i";A 
S:IF  LEFT5(A5,1)<>"Y"TH 
EN2  20 

PG  210  PRINT"{2  DOWN  1 ( BLU ) WORK 
ING. . ."; :FORI=BS  TO  BS+ 
EA-SA+7:P0KE  I,0:NEXT:P 
RI NT "DONE" 

DR  220  PRINTTAB(10) "(2  DOWN} 
[BLK}{RVS)  MLX  COMMAND 
{ SPACE iMENU  (D0WN)|4i": 
PRINT  T5"{RVS)E{0FF}NTE 
R  DATA" 

BD  230  PRINT  T? " ( RVS ) D(0FF ) ISP 

lay  data": print  t5 " 
{rvsIlIoffIoad  file" 

JS    240    PRINT    T5"lRVS]S{0FFlAVE 
FILE";PRINT    T5"|RVS}Q 

{off}uit(2  downKblk)" 
jh  250  get  as: if  a$=n$  then250 
hk  260  a=0:for  1=1  to  5: if  as= 

mid$("edlsq", 1,1) then  a 

=1:1=5 
FD  270  NEXT:ON  A  GOTO420, 610,6 
90,700,280:GOSUB1060:GO 

TO  2  50 
EJ  260  PRINT" (RVS3  QUIT  ":INPU 

T"{DOWN)i43ARE  YOU  SURE 
CY/N]";A?:IF  LEFT5(A$, 

1)<>"Y"THEN220 
EM  290  POKE  SD+24,0;END 
JX  300  IN$=N$:AD=0:INPUTIN5:IF 

LEN ( IN5 ) <  >  4THENRETURH 
KF  310  B5=IN5:GOSUB320!AD=A:B? 

=MID? ( IN? , 3 ) JGOSUB320 :A 

D=AD*256+A:RETURN 
PP    320   A=0:FOR   J=l    TO    2:A5=MID 

? ( BS , J , 1 ) ! B=ASC ( A$ ) -C4+ 

(A$>"@")*C7:A=A*C6+B 
JA  330  IF  B<0  OR  B>15  THEN  AD= 

0:A=-1:J=2 
GX  340  NEXT: RETURN 
CH  350  B= INT ( A/C6 }: PRINT  MID5 ( 

H$,B+1,1) ; :B=A-B*C6:PRI 

NT  MID?(H5,B+1, 1) ; :RETU 

RN 
RR   360   A=INT(AD/Z6)sGOSUB350!A 

=AD-A*Z6jGOSUB350:PRINT 

» •  ■>  ■ 

BE  370  CK=INT{AD/Z6) :CK=AD-Z4* 

CK-fZS*  (CK>Z7)  IGOTO390 
PX  380  CK=CK*22+25*(CK>27)+A 
JC  390  CK=CK+Z5*(CK>Z5) :RETURN 
QS  400  PRINT" (DOWN) STARTING  AT 

E4i"; :GOSUB300sIF  IN?<> 

N$    THEN   GOSUB1030!lF   F 

( SPACE JTHEN400 
EX    410    RETURN 
HO    420    PRINT" {RVS)    ENTER    DATA 

[SPACE3":GOSUB400:IF    IN 

5=N?    THEN220 
JK   430    OPEN3,3:PRINT 
SK   440    POKE198,0:GOSUB360:IF    F 
THEN    PRINT    IN?: PRINT" 

{UP} {5    RIGHT  I" f 
GC   450    FOR    1=0   TO    24    STEP    3:B$ 

=S$:FOR   J=l    TO    2: IF   F   T 

HEN    B$=MID?(INS,I+J,1) 
HA    460    PRINT"{RVS}"B5L5: ilF    I< 

24THEN    PRINT" (OFF)"; 
HD    470    GET    ASslF   AS=N$    THEN470 


FK  480  IF(A$>"/"ANDA5<" t ">OR(A 
5>"@"ANDA5<"G" )THEN540 

GS  485  A=-(A5="M")-2*(A$=", ")- 
3*(A5=".")-4*(A?="/")-5 
*(A$="J")-6*(A?="K") 

FX  486  A=A-7*(A?="L")-8*(A$=": 
" )-9*(A?="U" )-10* (A?="I 
" ) -11* (A5="0" ) -12* (A$=" 
P") 

CM  487  A=A-13*(A$=S$) :IF  A  THE 
N  A5=MID$("ABCD12  3E456F 
0",A, 1) :G0T0  540 

MP  490  IF  A$=R?  AND{(I=0)AND( J 
=1)0R  F)THEN  PRIKT  B? ; : 
J=2:NEXT:I=24:GOTO550 

KC  500  IF  A$="(H0ME)"  THEN  PRI 
NT  B$:J=2:NEXT:I=24iNEX 
T:F=0:GOTO440 

MX  510  IF (A$=" (RIGHT) ")AHDP  TH 
ENPRINT  B$L? ; :GOTO540 

GK  520  IF  A$<>L5  AND  A$<>D5  OR 
( (1=0) AND ( Jsl )) THEN  GOS 
UB1060:GOTO470 

HG  530  A5=L$+S5+L5: PRIKT  B5L? ; 
:J=2-J:IF  J  THEN  PRINT 
[ SPACE) L$; ! 1=1-3 

QS  540  PRINT  A5;:NEXT  JsPRINT 
( SPACE )S$; 

PM  550  NEXT  I:PRINT:PRIKT"{UP) 
(5  RIGHT]"; :1KPUT#3,IN5 
sIF  IN?=N$  THEN  CL0SE3: 
GOTO220 

QG  560  FOR  1=1  TO  25  STEP3 :B$= 
MID$( IN?, I) :GOSUB320:IF 
I<25  THEN  GOSUB380:A(I 
/3)=A 

PK  570  NEXT:  IF  AOCK  THEN  GOSU 
B1060:PRINT"{BLK) (RVS) 
(space) ERROR:  REENTER  L 
INE  g4i":F=l:GOTO440 

HJ  580  GOSUB1080:B=BS+AD-SA:FO 
R  1=0  TO  7: POKE  B+I,A(I 
) :NEXT 

QO  590  AD=AD+8:IF  AD>EA  THEN  C 
LOSE3:PRINT"rDOWN) ( BLU } 
**  END  OF  ENTRY  **{BLK} 
(2  DOWN)"iGOTO700 

GQ  600  F=0:GOTO440 

QA    610    PRINT" (CLR3 {DOWN} (RVS) 
(SPACE) DISPLAY    DATA    ":G 
OSUB400:IF    IN?=N?    THEN2 
20 

RJ    620    PRINT" (DOWN) (BLUlPRESS: 
[RVS) SPACE {OFF}    TO    PAU 
SE,     (RVS) RETURN {OFF}    TO 
BREAKg4i{D0WN}" 

KS  630  GOSUB360:B=BS+AD-SA:FOR 
I=BTO  B+7:A=PEEKCI) :GOS 
UB350!GOSUB380:PRIKT    S? 

CC    640    NEXTtPRINT"{RVS}"; :A=CK 

:GOSUB350:PRIbFT 
KH    650    F=1:AD=AD+8:IF   AD>EA    TH 

ENPRINT "(DOWN) (BLU)**    E 

ND  OP  DATA  **":GOTO220 
KC  660  GET  A?: IF  A?=R?  THEN  GO 

SUB1080 :GOTO220 
EQ  670  IF  A$=SS  THEN  F=P+1 iGOS 

UB1080 
AD  680  ONFGOTO630,660,630 
CM  690  PRINT" (DOWN) (RVS)  LOAD 

(SPACE) DATA  "sOP=lsGOTO 

710 
PC  700  PRINT"{D0WN3{RVS}  SAVE 

{  SPACE  JFILE  ":OPi=0 
RX  710  IN5=N?:INPUT"{D0WN3FILE 

NAMEg4i";INS:IF  IN?=N$ 

{ SPACE )THEN2 20 
PR  720  F=0:PRINT"{DOWN) (BLK) 

{RVS}T{OFF)APS  OR  { RVS ) 

D{0FF}ISK:  B4|"; 


FP  730  GET  A?! IF  A$="T"THEN  PR 

INT "T( DOWN] " :GOTO880 
HQ  740  IF  A$<>"D"THEN730 
HH  750  PRINT"D{DOWN}":OPEN15,8 

,15, "10 s "!B=EA-SA:IK$=" 

0:"+IN$:IF  OP  THEN810 
SQ  760  OPEN  1,8,8,IN5+",P,W":G 

OSUB860:IF  A  THEN220 
FJ  770  AH=INT(SA/256) !AL=SA-(A 

H*256):PRINT#1,CHR?(AL) 

rCHR5(AH); 
PE    780    FOR    1=0    TO    B:PRINT#1,CH 

R?(PEEK(BS+I)); :IF   ST   T 

HEN800 
FC  790  NEXT:CLOSEl :CL0SE15:G0T 

0940 
GS    800    GOSUB1060:PRINT"{DOWN) 

( BLK) ERROR  DURING  SAVE: 

i4i":GOSUB860:GOTO220 
MA  810  OPEN  1,8,8,IN?+",P,R":G 

OSUB860:IF  A  THEN220 
GE  820  GET#l,A5,B?:AD=ASC(A?+2 

$)+256*ASC(B5+ZS) JiF  AD 

<>SA    THEN    F=1:GOTO850 
RX    830    FOR    1=0    TO   B:GET#1,A$:P 

OKE  BS+I,ASC(A?+Z?) :IF( 

I<>B)AND  ST  THEN  F=2:AD 

=I:I=B 
FA  840  NEXT:IP  ST<>64  THEN  F=3 
FQ  850  CLOSEl :CL0SE15!0N  ABS(F 

>0)+l  GOTO960,970 
SA  860  INPUT#15,A,A$:IF  A  THEN 
CLOSEl :CLOSE15:GOSUB10 

60:PR1NT"(RVS)ERROR:  "A 

? 
GQ  870  RETURN 
EJ  880  POKE183,PEEK(FA+2) :POKE 

187, PEEK (FA+3) :POKE188, 

PEEK(FA+4) :IFOP=0THEN92 

0 
HJ    890    SYS    63466:IF(PEEK{783)A 

NDDTHEN   GOSUB1060:PRIN 

T" (down) (RVS)    FILE    NOT 

[SPACE] FOUND    ":GOTO690 
CS    900    AD=PEEK(829)+2  56*PEEK(8 

30):  IF    ADOSA    THEN    F=l  : 

GOTO970 
SC  910  A=PEEK(831)+2  56*PEEK(83 

2)-l :F=F-2*(A<EA)-3*(A> 

EA) :AD=A-AD:GOTO930 
KM  920  A=SA:B=EA+1:GOSUB1010:P 

OKE780,3:SYS    63338 
JF   930   A=BS:B=BS+(EA-SA)+1:G0S 

UB1010:ON   OP    GOTO950:SY 

S    63S91 
AE    940    GOSUB1080 SPRINT" [BLU]** 
SAVE    COMPLETED    **":GOT 

O220 
XP   950    POKE147,0:SYS    63562:IF 

{ SPACE ] ST >0   THEN970 
FR    960    GOSUB1080:PRINT"{BLU]** 
LOAD   COMPLETED    **":GOT 

0220 
DP    970    GOSUB1060!PRINT"(BLK} 

{RVE)ERR0R   during    LOAD: 

{DQWN]i4i":0N   F   G0SUB9S 

0,990,1000:GOTO220 
PP   980    PRINT "INCORRECT   STARTIN 

G   ADDRESS    { " ; :GOSUB360 i 

PRIKT") ": RETURN 
GR    990    PRINT "LOAD    ENDED    AT     ";! 

AD=SA+AD: GOSUB360 : PRINT 
D? : RETURN 
FD    1000    PRINT "TRUNCATED    AT    END 

ING  ADDRESS": RETURN 
RX  1010  AH= INT ( A/256 ) :AL=A-( AH 
*256) :POKE19  3,AL!POKEl 
94,  AH 
FF  1020  AH=INT(B/256) :AL=B-CAH 
*256) :POKE174,AL:POKE1 
75, AH: RETURN 
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FX  1030  IF  AD<SA  OR  ADJ-EA  THEN 

1050 
HA  1040  IF(AD>511  AND  AD<40960 

)OR{AD>49151  AND  AD<53 

24B)THEN  GOSUB1080 :F=0 

: RETURN 
HC    1050    GOSUB1060:PRINT"fRVSl 

[SPACE j INVALID  ADDRESS 
{ DOWN} { BLK } " : F=l : RETU 

RN 
AR  1060  POKE  SD+5,31:POKE  SD+6 

,208:POKE  SD,240:POKE 

E SP ACE )SD+ 1,4: POKE  SD+ 

4,33 
DX  1070  FOR  S=l  TO  100JNEXTSGO 

TO1090 
PF  1080  POKE  SD+5,8iP0KE  SD+6, 

240: POKE  SD,0:POKE  SD+ 

1,90: POKE   SD+4,17 
AC    1090    FOR   S=l    TO    100:NEXT:PO 

KE  SD+4,0:POKE  SD,0:PO 

KE  SD+1,0! RETURN 

Program  2:  MLX  For 
Commodore  128 

AE  100  TRAP  960:POKE  4627,128: 
DIM  NL$,A(7) 

XP  110  a2=2:Z4=254:Z5=255:Z6=2 
56:Z7=12  7:BS=256*PEEK(4 
627) iEA=65280 

FB  120  BE?=CHR5(7):RTS=CHR$(13 
) J  DL9=CHR$ ( 20 ) :SP$=CHRS 
(32)!LF?=CHR$(157) 

KE  130  DEF  FNHB (A)=INT (A/256 ) : 
DEF  FNLB(A)=A-FNHB(A)*2 
56:DEF  PiSAD(A)=PEEK(A)  + 
256*PEEK(A+1) 

JB  140  KEY  1,"A":KEY  3,"B":KEY 
5,  "C'-jKEY  7,"D":V0L  15 
{IF  RGR(0)=5  THEN  FAST 

FJ  150  PRINT" (CLRl"CHR$( 142 );C 
KR?(8):C0LOR  0,15:COLOR 
4, 15: COLOR  6,15 

GQ  160  PRINT  TAB (12) "(RED) 
{RVSj{2  SPACES  3^9  gl 
(2  SPACES3"RT5;TAB(12) " 
(RVS}{2  SPACES] (off) 
(BLU)  128  MLX  {RED) 
{RVS){2  SPACES] "RT?; TAB 
(12)"iRVS){l3  SPACES) 
[BLU]" 

FE  170  PRINT" (2  down} 

{3  SPACES] COMPUTEl "S  MA 
CHINE  LANGUAGE  EDITOR 
{2  DOWNj" 

DK  180  PRINT" {BLKJSTARTING  ADD 
RESSi43"; :GOSUB  260:IF 
C SPACE) AD  THEN  SA=AD:EL 
SE  180 

FH  190  PRINT"{BLK3{2  SPACES) EN 
DING  ADDRESS  Ni  ";  :GOSUB 
2 60: IF  AD  THEN  EA=AD:E 
LSE  190 

MF  200  PRINT" (down) {BLK 3 CLEAR 

{spaceJworkspace  [y/n]? 

i4i":GETKEY  A$:IF  A$ <> " 
Y"  THEN  220 

QH  210  PRINT" {down] {BLU }W0RKIN 
G...";:BANK  0:POR  A=BS 
( SPACE ]T0  BS+(EA-SA)+7! 
■   POKE  A,0!NEXT  A:PKINT"D 
ONE" 

DC  220  PRINT  TAB(10)"{DOWN] 

{BLK}{RVS)  MLX  COMMAND 
{SPACE]MENU  E4HD0WN]": 
PRINT  TAB(13)"(RVS}E 
{OFFJNTER  DATA"RT5;TAB( 
13)"{RVS]D[0FF)ISPLAY  D 
ATA"RT$;TAB(13) "{RVSJI, 

{off]oad  file" 


HB  230  PRINT  TAB{ 13 ) " {RVS JS 

[OFFIAVE  FILE"RT$;TAB(1 

3) "{rvs]c{opf)atalog  DI 

SK"RT?;TAB(13) " (RVsJq 

{off3uit{down] (BLK)" 

AP  249  GETKEY  A5  :  A'«InSTR(  "EDLS 

CQ",A$):0N  A  GOTO  340,5 

50,640,650,930,940:GOSU 

B  950:GOTO  240 
SX  250  PRINT "STARTING  AT";:GOS 

UB  260:IF(AD<>0)OR(A5=N 

LSlTHEN  RETURN: ELSE  250 
BG  260  A5=NL5! INPUT  A5:IF  LEN ( 

A5)=4  THEN  AD=DEC(A$) 
PP  270  IF  AD=0  THEN  BEGIN: IF  A 

$<>NL5  THEN  300: ELSE  RE 

TURN: BEND 
MA  280  IF  AD<SA  OR  AD>EA  THEN 

{SPACE} 300 
PM  290  IF  AD>511  AND  AD<65280 

{ SPACE }THEN  PRINT  BE5r: 

RETURN 
SQ  300  GOSUB  950 : PRINT "{ RVS]  I 

NVALID  ADDRESS  {DOWN} 

{ BLK  j " : AD=0 : RETURN 
RD  310  CK=FNHB(AD) :CK=AD-Z4*CK 

+Z5*(CK>Z7) :GOTO  330 
DD  320  CK=CK*Z2+Z5*(CK>Z7)+A 
AH  330  CK=CK+25»(CK>Z5) : RETURN 
QD  340  PRINT  BESr"{RVS}  ENTER 

{SPACE] DATA  ": GOSUB  250 

:IF  A?=NL5  THEN  220 
JA  350  BANK  0 : PRINT : F=0 : OPES  3 

,3 
BR  360  GOSUB  310: PRINT  HEX? (AD 

)+": "; :IF  F  THEN  PRINT 

{SPACEjL$:PRINT" {UP) 

{5  RIGHT]"; 
QA  370  FOR  1=0  TO  24  STEP  3:BS 

=SP5jF0R  J=1  to  2: if  F 

{SPACE) THEN  B$=MID?{L5, 

I+J,l) 
PS  380  PRINT"{RVS)"B$+LF$; :IF 

(SPACE)I<24  THEN  PRINT" 

(OFF]"; 
RC  390  GETKEY  ASiIF  (A5>"/"  AN 

D  AS<":")  0R(A5>"@"  AND 
A?<"G")  THEN  470 
AC  400  IF  A5="+"  THEN  A$="E":G 

OTO  470 
QB  410  IF  A5="-"  THEN  A?="F":G 

OTO  470 
FB  420  IF  A$=RT5  AND  ((1=0)  AN 

D  {J=l)  OR  F)  THEN  PRIN 

T  B$; ! J=2:NEXT:I=24;GOT 

0  480 
RD  430  IF  A?="{H0ME)"  THEN  PRI 

NT  B$ :J=2 : NEXT: 1=24 :SEX 

T:F=0:GOTO  360 
XB  440  IF  (A?=" [RIGHT]")  AND  F 
THEN  PRINT  B$+LF5;:G0T 

0  470 
JP  450  IF  A$<>LF?  AND  A$<>DL$ 

{ SPACE )0R  ((1=0)  AND  (J 

=1))  THEN  GOSUB  950:GOT 

O  390 
PS  460  A5=LF$+SP'?+LF9:  PRINT  B$ 

+LF5; :J=2-J:IF  J  THEN  P 

RINT  LF?; : 1=1-3 
GB  470  PRINT  A?;: NEXT  J: PRINT 

{ SPACE )SP5r 
HA  480  NEXT  I:PRINT;PRINT"{UP) 

{5  RIGHT}"; !L$=" 

{ 27  SPACES } " 
DP  490  FOR  1=1  TO  25  STEP  3:GE 

T#3,A$,B$:IF  A5=SPS  THE 

N  1=25: NEXT s CLOSE  3s GOT 

O  220 
BA  500  A5=A?+B5:A=DEC(A$):MID5 

(L?,I,2)=A?:IF  I<25  THE 

N  GOSUB  320:A(I/3)=A:GE 

TI3,AS 


AR  510  NEXT  I:IF  AoCK  THEN  GO 

SUB  950 :PRINT: PRINT" 

{RVS)  ERROR!  REENTER  LI 

NE  ":F=1:G0T0  360 
DX  520  PRINT  BE?:B=BS+AD~SA!FO 

R  1=0  TO  7: POKE  B+I,A(I 

) ! NEXT  1 
XB  530  F=0:AD=AD+8:IF  AD<=EA  T 

HEN  360 
CA  540  CLOSE  3 sPRINT" {DOWN) 

{BLU}**  END  OP  ENTRY  ** 

[BLK] [2  DOWN)":GOTO  650 
MC  550  PRINT  BE?; "[CLR) {down} 

[RVS]  DISPLAY  DATA  " :G0 

SUB  250: IF  A5=NLS  THEN 

(SPACE) 220 
JF  560  BANK  0 : PRINT "{ DOWN ) 

{BLU}PRESS:  [RVS]SPACE 

{OFF}  TO  PAUSE,  [ RVS] RE 

TURN [OFF]  TO  BREAKg4! 

(DOWN)" 
XA  570  PRINT  HEX5(AD)+"i "; iGOS 

UB  310:B=BS+AD-SA 
DJ  580  FOR  I=B  TO  B+7:A=PEEK(I 

):PRINT  RIGHT? (HEX? (A), 

2) ;SP$; :GOSUB  320:NEXT 

(SPACE) 1 
XB  590  PRINT" (RVS)"; RIGHT? (HEX 

?(CK),2) 
GR  600  F=1:AD=AD+8:IF  AD>EA  TH 

EN  PRINT" [BLU]**  END  OF 
DATA  **":GOTO  220 
EB  610  GET  A?:IF  AS=RT$  THEN  P 

RINT  BE?: GOTO  220 
QK  620  IF  AS=SPS  THEN  F=F+1:PR 

INT  BE?; 
XS  630  ON  F  GOTO  570,610,570 
RF  640  PRINT  BE?" [DOWN] [RVS]  L 

GAD  DATA  "iOP=l!GOTO  66 

0 
BP  650  PRINT  BE?"!D0WN]{RVS)  S 

AVE  PILE  "!OP=0 
DM  660  F=0:F?=NL5: INPUT "FILENA 

ME^43";F?!lF  FS=NL5  THE 

N    220 
RF   670    PRINT "{ DOWN } (BLK) [RVS J T 

(OFFlAPE  OR  (RVS}D[0FF} 

ISK:  i43"; 
SQ  680  GETKEY  A?: IF  AS="T"  THE 

N  850: ELSE  IF  A?<>"D"  T 

HEN  680 

SP   690    PRINT"DISK{DOWN]":IF   OP 
THEN    760 

EH    700    D0PEN#1, (F?+",P"),W:IF 
{SPACE  3 DS    THEN    A?=D?:G0 
TO    740 

JH  710  BANK  0:POKE  BS-2,FNLB(S 
A):POKE  BS-1,FNHB(SA) :P 
RINT "SAVING    "; F? : PRINT 

MC  720  FOR  A=BS-2  TO  BS+EA-SA: 
PRINT#1,CHR?(PEEK(A) ); : 
IF  ST  THEN  A5="DISK  WRI 
TE    ERR0R":GOT0    750 

GC    730    NEXT    As  CLOSE    1: PRINT" 
[BLU]**    SAVE    COMPIjETED 
[SPACE] WITHOUT    ERRORS    * 
*";GOTO    220 

RA  740  IF  DS=63  THEN  BEGINsCLO 
SE  1: INPUT "(ELK  3  REPLACE 
EXISTING  FILE  [Y/N]B4i 
";AS:IF  A5="Y"  THEN  SCR 
ATCH(F?) : PRINT: GOTO  700 
:ELSE  PRINT"{BLK]":G0TO 
660: BEND 

GA  750  CLOSE  1: GOSUB  950! PRINT 
"(BLK) [RVS]  ERROR  DURIN 
G  SAVE:  E4i":PRINT  A?:G 
OTO    220 

FD,760    DOPENSl, (F5+",P"):IF    DS 
THEN    A?=DS$!F=4:CL0SE 
{SPACE}1:G0T0    790 
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PX  770 


KB  780 


RO  790 


ER  800 


QJ 

810 

DP 

820 

EB 

830 

FP 

840 

KS 

850 

XX 

860 

FG  870 


AB  380 


CP  890 


GQ  900 


JD  910 


XB  920 


CP  930 


MM  940 


JE 

950 

AF 

960 

MK 

970 

KJ 

980 

DQ 

990 

GET#l,A$,B?:CLOSE  1:AD= 

ASC(A5)+256*ASC(B$) :IF 

{  SPACE  lADoSA  THEN  F=l  : 

GOTO  790 

PRINT "LOADING  ";F$:PRIU 

T : BLOAD ( F? ) , B0 , P ( BS ) : AD 

=SA+FNAD (174) -BS-1 i P=-2 

* ( AD  <  EA ) -3  * ( AD  >  EA  > 

IF  F  THEN  300: ELSE  PRIN 

T"(BL«}**  LOAD  COMPLETE 

D  WITHOUT  ERRORS  **":G0 

TO  220 

GOSUB    950:PRINT"{BLK} 

(RVS}    ERROR    DURING    LOAD 

:     E43":ON    F    GOSUB    810,8 

20,830,840:GOTO220 

PRINT"INCORRECT  STARTIN 

G  ADDRESS  ( " r HEXS ( AD ) ; " 

) " : RETURN 

PRINT "LOAD  ENDED  AT  ";H 

EX$(AD) :RETURN 

PRINT "TRUNCATED  AT  ENDI 

NG  ADDRESS  ("HEX?(EA)") 

": RETURN 

PRINT "DISK  ERROR  ";A5:F 

ETURN 

PRINT "TAPE " : AD-POINTER ( 

F5):BANK  1 : A=PEEK ( AD ) t A 

L=PEEK(AD+1) :AH=PEEK(AD 

+2) 

BANK  15: SYS  DEC{"FF68") 

,0,1: SYS  DEC("FFBA"),1, 

1,0:SYS  DEC("FFBD"),A,A 

L,AH:SYS  DEC( "FF90" ) , 12 

8:  IF  OP  THEN  890 

PRINT ! A=SA: B=EA+1 ! GOSUB 

920:SYS  DEC("E919"),3! 
PRINT"SAVING  " ; F$ 
A=BS : B=BS+ ( EA-SA ) +1 : GOS 
UB  920:SYS  DEC("EA18"): 
PRINT" [DOWN) [BLU]**  TAP 
E  SAVE  COMPLETED  **"!G0 
TO  220 

SYS  DEC ("E99A") SPRINT  si 
F  PEEK(2816)=5  THEN  GOS 
UB  950; PRINT "{down) 
EBLKKRVSJ  FILE  NOT  FOU 
ND  ":GOTO  220 
PRINT "LOADING  . . . ( DOWN ) 
":AD=FNAD(2ai7) ilF  AD<> 
SA  THEN  F=l!GOTO  800: EL 
SE  AD=FNAD(2ai9)-l :F=-2 
*(AD<EA)-3*(AD>EA) 
A=BS : B=BS+ ( EA-SA ) +1 :GOS 
UB  920:SYS  DEC("E9FB"}: 
IF  ST>0  THEN  800 : ELSE  7 
90 

POKE193,FNLB(A) :POKE194 
,PNHB(A) :POKE  174,FNLB( 
B):POKE  175,FNHB(B) :RET 
URN 

CATALOG : P  RI NT " f  DOWN ) 
(BLU)**  PRESS  ANY  KEY  P 
OR  MENU  **":GETKEY  AS:G 
OTO  2  20 

PRINT  BES"[RVS}  QUIT 
i4|";RTS; "ARE  YOU  SURE 
{SPACE }iY/N]?":GETKEY  A 
$:IF  A$<>"Y"  THEN  220:E 
LSE  P  RINT " { CLR } " ! BANK  1 
5  :  END 

SOUND    1,500, 10: RETURN 
IF    ER=14    AND    EL=260    TtlE 
N    RESUME    300 
IF    ER=14    AND    EL=500    THE 
N    RESUME    NEXT 
IF    ER=4   AND    EL=780    THEN 

F=4:A?=DS 5: RESUME    800 
IF    ER=30    THEN    RESUME: EL 
SE    PRINT    ERR?(ER),-"    ERR 
OR    IN    LINE"; EL  ^ 
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Entry  Program  For 
,  Apple 


To  make  it  easier  to  enter  machine  lan- 
guage programs  into  your  computer  wiih- 
out  typos,  COMPUTE!  is  introducing  its 
"MIX"  entry  program  for  the  Apple  11 
series.  It's  our  best  MIX  yet.  It  runs  on  the 
n,  n+,  lie,  and  Uc,  and  with  either  DOS 
3.3  or  ProDOS. 


A  machine  language  (ML)  program  is 
usually  listed  as  a  long  series  of  num- 
bers. It's  hard  to  keep  your  place  and 
even  harder  to  avoid  making  mistakes  as 
you  type  in  the  listing,  since  an  incorrect 
line  looks  almost  identical  to  a  correct 
one.  To  make  error-free  entry  easier, 
COMPUTEl  generally  lists  ML  programs 
for  Commodore  and  Atari  computers  in 
a  format  designed  to  be  typed  in  with  a 
utility  called  "MLX."  The  MLX  program 
uses  a  checksum  system  to  catch  typing 
errors  almost  as  soon  as  they  happen. 
Apple  MLX  checks  your  typing  on 
a  line-by-line  basis.  It  won't  let  you 
enter  invalid  characters  or  let  you  con- 
tinue if  there's  a  mistake  in  a  line.  It 
won't  even  let  you  enter  a  line  or  digit 
out  of  sequence.  Best  of  all,  you  don't 
have  to  know  anything  about  machine 
language  to  enter  ML  programs  with 
MLX.  Apple  MLX  makes  typing  ML 
programs  almost  foolproof. 

Using  Apple  MLX 

Type  in  and  save  some  copies  of  Apple 
MLX  on  disk  (you'll  want  to  use  MLX  to 
enter  future  ML  programs  in  COM- 
PUTE!). It  doesn't  matter  whether  you 
type  it  in  on  a  disk  formatted  for  DOS 
3.3  or  ProDOS.  Programs  entered  with 
Apple  MLX,  however,  must  be  saved  to 
a  disk  formatted  with  the  same  operat- 
ing system  as  Apple  MLX  itself. 

If  you  have  an  Apple  He  or  lie,  make 
sure  that  the  key  marked  CAPS  LOCK  is 
in  the  down  position.  Type  RUN.  You'll 
be  asked  for  the  starting  and  ending  ad- 
dresses of  the  ML  program.  These  values 
vary  for  each  program,  so  they're  given  at 
the  begirming  of  the  ML  program  listing 
and  in  the  program's  accompanying  arti- 
cle. Find  them  and  tj^pe  them  in. 

Invalid  Characters  Banned 

Apple  MLX  is  fairly  flexible  about  how 
you  type  in  the  numbers.  You  can  put 
extra  spaces  between  numbers  or  leave 
the  spaces  out  entirely,  compressing  a 
line  into  18  keypresses.  Be  careful  not  to 
put  a  space  between  two  digits  in  the 
middle  of  a  number.  Apple  MLX  will 
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read  two  single-digit  numbers  instead  of 
one  two-digit  number  (F  6  means  F  and 
6,  not  F6). 

You  can't  enter  an  invalid  character 
with  Apple  MLX.  Only  the  numerals  0-9 
and  the  letters  A-F  can  be  typed  in.  If  you 
press  any  other  key  (with  some  excep- 
tions noted  below),  nothing  happens. 
This  safeguards  against  entering  extrane- 
ous characters.  Even  better,  Apple  MLX 
checks  for  transposed  characters.  If 
you're  supposed  to  type  in  AO  and  in- 
stead enter  OA,  Apple  MLX  will  catch 
your  mistake. 

The  next  thing  you'll  see  is  a  menu 
asking  you  to  select  a  function.  The  first  is 
(E)NTER  DATA.  If  you're  just  starting  to 
type  in  a  program,  pick  this.  Press  the  E 
key,  and  the  program  asks  for  the  ad- 
dress where  you  want  to  begin  entering 
data.  Type  the  first  number  in  the  first 
line  of  the  program  listing  if  you're  just 
starting,  or  the  line  number  where  you 
left  off  if  you'\'e  already  typed  in  part  of  a 
program.  Hit  the  RETURN  key  and  begin 
entering  the  data. 

Once  you're  in  Enter  mode,  Apple 
MLX  prints  the  address  for  each  program 
line  for  you.  You  then  type  in  all  nine 
numbers  on  that  line,  beginning  with  the 
first  two-digit  number  after  the  colon  (;). 
Each  line  represents  eight  bytes  and  a 
checksum.  When  you  enter  a  line  and  hit 
RETURN,  Apple  MLX  recalculates  the 
checksum  from  the  eight  bytes  and  the 
address.  If  you  enter  more  or  less  than 
nine  numbers,  or  the  checksum  doesn't 
exactly  match,  Apple  MLX  erases  the  Une 
you  just  entered  and  prompts  you  again 
for  the  same  line. 

Apple  MLX  also  checks  to  make 
sure  you're  typing  in  the  right  Bne.  The 
address  (the  number  to  the  left  of  the 
colon)  is  part  of  the  checksum  recalcula- 
tion. If  you  accidentally  skip  a  line  and 
try  to  enter  incorrect  values,  Apple  MLX 
won't  let  you  continue.  Just  make  sure 
you  enter  the  correct  starting  address;  if 
you  don't,  you  won't  be  able  to  enter  any 
of  the  following  lines.  Apple  MLX  wUi 
stop  you. 

Editing  Features 

Apple  MLX  also  includes  some  editing 
features.  The  left-  and  right-arrow  keys 
allow  you  to  back  up  and  go  forward  on 
the  line  that  you  are  entering,  so  you  can 
retype  data.  Pressing  the  CONTROL 
(CTRL)  and  D  keys  at  the  same  time 
(delete)  removes  the  character  under  the 
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cursor,  shortening  the  line  by  one  charac- 
ter. Pressing  CTRL-I  (insert)  puts  a  space 
under  the  cursor  and  shifts  the  rest  of  the 
line  to  the  right,  making  the  line  one 
character  longer.  If  the  cursor  is  at  the 
right  end  of  the  line,  neither  CTRL-D  nor 
CTRL-I  has  any  effect. 

When  you've  entered  the  entire  list- 
ing (up  to  the  ending  address  that  you 
specified  earlier),  Apple  MLX  automati- 
cally leaves  Enter  mode  and  redisplays 
the  functions  menu.  If  you  want  to  leave 
Enter  mode  before  then,  press  the  RE- 
TURN key  when  Apple  MLX  prompts 
you  with  a  new  line  address.  (For  in- 
stance, you  may  want  to  leave  Enter 
mode  to  enter  a  program  listing  in  more 
than  one  sitting;  see  below.) 

Display  Data 

The  second  menu  choice,  (D)ISPLAY 
DATA,  examines  memory  and  shows  the 
contents  in  the  same  format  as  the  pro- 
gram listing.  You  can  use  it  to  check  your 
work  or  to  see  how  far  you've  gotten. 
When  you  press  D,  Apple  MLX  asks  you 
for  a  starting  address.  Type  in  the  address 
of  the  first  line  you  want  to  see  and  hit 
RETURN.  Apple  MLX  displays  program 
lines  until  you  press  any  key  or  until  it 
reaches  the  end  of  the  program. 

Save  And  Load 

Two  more  menu  selections  let  you  save 
programs  on  ciisk  and  load  them  back 
into  the  computer.  These  are  (S)AVE 
FILE  and  (L)OAD  FILE.  When  you  press 
S  or  L,  Apple  MLX  asks  you  for  the 
filename.  The  first  time  you  save  an  ML 
program,  the  name  you  assign  will  be  the 
program's  filename  on  the  disk.  If  you 
press  L  and  specify  a  filename  that 
doesn't  exist  on  the  disk,  you'll  see  a  disk 
error  message. 

If  you're  not  sure  why  a  disk  error 
has  occurred,  check  the  drive.  Make  sure 
there's  a  formatted  disk  in  the  drive  and 
that  it  was  formatted  by  the  same  operat- 
ing system  you're  using  for  Apple  MLX 
(ProDOS  or  DOS  3.3).  If  you're  trying  to 
save  a  file  and  see  an  error  message,  the 
disk  might  be  full.  Either  save  the  file  on 
another  disk  or  quit  Apple  MLX  (by 
pressing  the  Q  key),  delete  an  old  file  or 
two,  then  run  Apple  MLX  again.  Your 
typing  should  still  be  safe  in  memory. 

Apple  MLX:  Machine 
Language  Entry  Program 

For  inslmctjons  on  entering  this  program, 
pleose, refer  to  "COMPUTErs  Guide  1o  Typing 
In  Progroms"  elsewhere  In  this  Issue. 

it  100  N  ==  9:  HOME  :  NORMAL  :  PR 
INT  "ftPPLE  MLX"!  POKE  34, 
2:  DNEBR  GOTO  610 

CC  11(3  VTAS  1:  HTPlB  20:  PRINT  "S 
TART  ftDDRESS";:  QOSUB  530 
s  IF  A  »  0  THEN  PRINT  CHR 
*  (7) !  GOTO  110 

8C  120  S  =  A 


E3  130  VTAB  2:  HTAB  20:  PRINT  "E 
ND  ADDRESS  ";:  SOSUB  530 
:  IFS>  =  ADRA  =  0  THE 
N  PRINT  CHR*  (7>:  GOTO  13 


28  140 
B5  1S0 


AE  160 


93 

170 

flF 

180 

Al 

190 

3B 

200 

92 

210 

C2 

220 

9E  230 
85  240 
f2  250 


94  260 
CC  270 


48  280 
fli  290 


E  =  A 

PRINT  :  PRINT  "CHDOSE: (E) 
NTER  DATA";:  HTAB  22:  PRI 
NT  "(D)ISPLAY  DATA"!  HTAB 

8:  PRINT  "(DOAD  FILE  ( 
S)AVE  FILE  <Q)UIT":  PRIN 
T 

GET  A«5  FOR  I  =  1  TO  5:  I 
F  A»  <  >  MID*  ("EDLSQ",I, 
1)  THEN  NEXT  :  GOTO  160 
ON  I  SOTO  270,220,180,200 
5  POKE  34,0:  END 
INPUT  "FILENAME:  ";A«!  IF 

A«  <  >  ""  THEN  PRINT  CHR 

*  (4);"BLaAD";A*;",A";S 
BOTD  150 

INPUT  "FILENAME:  ";A»:  IF 
A*  <  >  ""  THEN  PRINT  CHR 

•  (4>  ;"BSAVE";A*;",A";S;  " 
,L"; <E  -  S)  +  1 

GOTO  150 

GOSUB  590:  IF  B  =  0  THEN 

150 

FOR  B  =  B  TO  E  STEP  SrL  = 

4:  A  °>  B:  GOSUB  580:  PRIN 
T  A»; ":  ";:L  =  2 
FOR  F  =  0  TO  7:V(F  +  U  = 

PEEK  (B  +  F) :  NEXT  :  QDS 
UB  560: V (9)  =  C 
FOR  F  =  1  TO  N:A  =  V(F>: 
GOSUB  580:  PRINT  A»"  "5: 
NEXT  :  PRINT  :  IF  PEEK  (4 
9152)  <  128  THEN  NEXT 
POKE  49168,0:  GOTO  150 
GOSUB  590:  IF  B  =  0  THEN 
150 

FOR  B  =  B  TO  E  STEP  8 
HTAB  l!A  -   BsL  =  4:  GQSUB 


580:  PRINT  A*j " : 
L  64668: A*  =  "":P 


CAL 
:  80 


0  THEN  1: 


>  N  THE 
SOTO  2 


SUB  330!  IF  L 

0 
F9  300  GOSUB  470:  IF  F  < 

N  PRINT  CHR*  <7) } : 

90 
V   310  IF  N  =  9  THEN  GOSUB  560: 

IF  C  <  >  V(9)  THEN  PRINT 

CHR»  (7);:  GOTO  290 
72  320  FOR  F  =  1  TO  8:  POKE  B  + 

F  -  I,V(F)!  NEXT  !  PRINT 

:  NEXT  :  GOTO  150 
BE  330  IF  LEN  (AS)  =  33  THEN  A* 

=  a*:P  -  Q:  PRINT  CHR*  (7 

)r 

22  340  L  -  LEN  (A«>:D*  =  A*:0  " 
P:L*  =  "":  IF  P  >  0  THEN 
L«  -  LEFT*  (A»,P) 

Ei  350  R«  =  '■":  IF  P  <  L  -  1  THE 
RIGHT*  <A*,L  -  P  - 


S5  360 


7t  370 
U   380 

CI  390 
SB  400 


N  R* 

1} 
HTAB 
:  IF 


7:  PRINT  L«5 ■    FLASH 
P  <  L  THEN  PRINT  MID 
S  (A»,P  +  1,1)|:  NORMAL  : 

PRINT  R»; 
PRINT  "  ";t  NORMAL 
K  =  PEEK  (49152) :  IF  K  < 
12B  THEN  380 

POKE  49168, 0:K  =  K  -  128 
IF  K  =  13  THEN  HTAB  7:  PR 
INT  A* 5"  "5:  RETURN 
IF  K  =  32  OR  K  >  47  AND  K 

<  58  OR  K  >  64  AND  K  <  7 
1  THEN  A*  =  L«  +  CHR*  CK) 

+  R*:P  =  P  +  1 

+  R 


(P 


CI    420 

IF   K 

« 

=   4    THEN   A*    =   L« 

3F   430 

IF    K 

=   9    THEN    A*    =   L» 

"    + 

MID*    (A«,P   +1,1) 

R« 

U  440 

IF   K 
>   0) 

=   8    THEN   P   =    P    - 

93  450  IF  K  =  21  THEN  P  =  P  +  (P 

<  L) 
91  460  GOTO  330 

37  470  F  =  1:D  =  0:  FOR  P  =  1  TO 
LEN  (A*)!C*  =  MID*  (A*,P 

, 1) !  IF  F  >  N  AND  C»  <  > 

"  "  THEN  RETURN 
BS  480  IF  C*  <  >  ■■  "  THEN  GOSUB 

520:V(F)  =  J  +  16  «  (D  = 

1)  t  V<F):D  =  D  +  1 
5F  490  IF  D  >  0  AND  C«  =  "  "  DR 

D  =  2  THEN  D  =  0!F  =  F  + 

1 
(fl  500  NEXT  :  IF  D  =  0  THEN  F  = 

F  -  1 
17  510  RETURN 
B5  520  J  =  ASC  (C*J!J  =  J  -  40  - 

7  «  (J  >  64) :  RETURN 
(IB  530  A  =  0:  INPUT  fl*sA*  =  LEFT 

*  (A*, 4):  IF  LEN  (A*>  =  0 
THEN  RETURN 
4F  540  FOR  P  =  1  TO  LEN  (A*):C* 

=  MID*  (A«,P, 1):  IF  C*  < 

"0"    OR  C*  >  "9" 

"A"  OR  C*  >  "Z" 

0:  RETURN 
2D  350  GOSUB  520:  A  =  A 

NEXT  !  RETURN 
28  560  C  =  INT  <B  /  256)  :C  =  B  - 
254  »  C  -  255  t  (C  >  127 

):C  -  C  -  255  *  (C  >  255) 
28  570  FOR  F=  1  T0  8:C  =  C*2 

-  255  *  (C  >  127)  +  V<F): 

C  =  C  -  255  «  (C  >  255): 

NEXT  :  RETURN 
Dfl  5B0  I  =  FRE  (0):A»  =  "":  FOR 

I  "  1  TO  L:T  =  INT  CA  /  1 

6)! A*  »  MID*  ("0123456789 

ABCDEF",A  -  16  t  T  +  1,1) 
+  A*:  A  =■  T:  NEXT  :  RETUR 

N 
IF  590  PRINT  "FROM  ADDRESS  ";:  G 

03UB  530!  IF  S  >  A  OR  E  < 
A  OR  A  =  0  THEN  B  =  0:  R 

ETURN 
tl  600  B  =  5 

/  8): 
B4  610  PRINT 

150 


AND  C»  < 
THEN  A  = 


*  16  +  J: 


+  a  «  INT  (  (A  -  S> 

RETURN 

"DISK  ERROR"!  GOTO 


All  the  programs  in 

this  issue  are 

available  on  the 

ready-to-load 

COMPUTE!  Disk,  To 

order  a  one-year 

(four-disk) 

subscription, 

call  toll  free 

800-247-5470 

(in  lA  800-532-1272). 

Please  specify  which 

computer  you  are 

using. 
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Classified 


COMPUTEt  Classified  is  a  low-cost  way  to  tell  over  350,000  microcomputer 
owners  about  your  product  or  service. 

RatftS:  $25  per  line,  minimum  of  four  lint's.  Any  ur  ^11  of  the  first  line  set  in  capiljl  lellers  at  no  charge.  Add 
S15  per  linip  for  boldface  words,  or  S50  for  the  enlirc  ad  set  in  boldface  (any  number  of  lines.)  Inquire  aboul 
dispfay  rates. 

Ternis:  Prepaymeni  is  required.  Check,  money  order.  American  Expr*&5,  Visa,  or  MasterCard  is  accepted. 
Make  checks  payable  to  COMPUTET  Publications. 


SOFTWARE 


FANTASTIC  DAILY  NUMBER  FOHECASTERI 

Not  a  R/K  Gen.  Guaranteed!  Sir.  Hits. 
C/64,  Ap,  IBM,  Atari.  1  Drive.  OH  add  5% 
SASE  for  info.  $42.95  on  Disk  onlv  to: 
Z-Way,  PO  Box  9017-C,  Canton,  OH  44711 

IBM  PUBLIC  DOMAIN  SOFTWARE  $3  PER  DISK. 
Send  for  free  list.  We  have  dbases/games/ 
spreadsheets/finance/educational/and  more, 
For  home  or  business.  Disks  are  new  DSDD. 
JDX/C  P.O.  Box  1561,  Corona,  CA  9171S 

If  you'd  like  information  on  the  latest  version  of 
your  software,  please  call  or  write;  Batteries 
Included  Customer  Support,  30  Mural  St., 
Richmond  Hill,  Ontario,  Canada  L4B  IBS 
(416)  881-9816 

COMMODORE:  TRY  BEFORE  YOU  BUY.  Best 
selling  games,  utilities,  educational,  +  classics 
and  new  releases.  lOO's  of  titles.  Visa/MC,  Free 
brochure.  RENT-A-DISC,  Frederick  Bldg.  #345, 
Hunfn,  WV  25701  (304)  529-3232 

FREE  APPLE  SOFTWARE 

Over  1000  Public  Domain  Programs  on  50 
diskettes.  S5  each  plus  SI  for  shipping  per  order. 
Send  $1  for  catalog,  (refundable  with  order) 
C&H  ENTERPRISES 
PO  Box  29243,  Memphis,  TN  38127 

TI-99/4A  QUALITY  SOFTWARE  for  Business, 
Home,  Entertainment  **  Bonus  Software  Offer!** 
Send  for  FREE  catalog  to  MICRO-BIZ  HAWAII, 
BOX  1108,  PEARL  CITY.  HI  96782 

TI-99/4A  Software/Hardware  Bargains. 
Hard  to  find  items.  Huge  Selection. 
Fast  Service.  Free  Catalog. 
D.E.C.,  Box  690,  Hicksville,  NY  11801 

TANDY  1000  PROGRAMS  AND  NEWSLETTER 
Send  for  free  information  on  educational  & 
entertainment  programs  &  newsletter.  Soda  Pop 
Software,  FOB  653,  Kenosha,  WI  53141 

FREE  SOFTWARE  for  C64,  C128,  IBM  &  CPM 
send  SASE  for  info  (specify  computer)  to: 
PUBLIC  DOMAIN  USERS  GROUP, 
PO  Box  1442-A2,  Orange  Park,  FL  32067 

APPLE  PUBLIC  DOMAIN  SOFTWARE  (almost 
free)  Send  S2  for  sample  disk  and  catalog. 
Refundable  with  order.  Disks  cost  $2.50  and  less. 
CALOKE  INC.,  Box  18477,  KC,  MO  64133 

DISCOUNT  SOFTWARE  for  most  computers. 
FREE  CATALOG.  Sale:  5,25"  DSDD  Disks 
25  for  $13.95  ppd.  WMJ  DATA  SYSTEMS-C, 
4  Butterfly  Dr„  Hauppauge,  NY  11788 

CHEAP  SOFTWARE  FOR  PC/MS-DOS/PCjr... 
Games,  Business,  Educational  and  Utility 
Disk.  For  catalog  write:  Morning  Star, 
P.O.  Box  3095,  Ann  Arbor,  Ml  48106 


J$WIN$$ 

wifh  our  ;. 

SPORTS        "^fer- 
Handicapping  '^«**'-*tx, 

SotTwarQ 

THOBOUGHSBtD/HASNESSHandicapprng  52«95.onhoricod 
S49«  GREYHOUND Hanciicoooino  529  55. onharced  S«W 
PRO  fOOTBHL  Hond<capoing  System  S39  95  Specifv  disfe/ 
tope  Aopio  H+ce.  Atorl.  {aSA  PC.  COM  64/ 12a  T(  Tr*5-S0  Mod 
3/d,  Mod  103/200.  Goto!  Aaa  S2  poit  /hanOI  MC/VlSA/CODi 
accepted  Free  inloimation  50FTWABE  EXCHANGE,  Boj  5382 
CP,  W  Bloomfieid.  Ml  48033  Ofde'S   1.S0Q-527.';4fl7 


FREE!  PUBLIC  DOMAIN  SOFTWARE! 
MS-DOS,  IBM  &  Compatibles  -  Save  S$$ 
@  S3.50  per  disk!  Free  flyer:  AP-JP  Inc, 
P.O.  Box  1155,  W.  Babylon,  NY  11704 

BUY-SELL  USED  IBM  COMPATIBLE  SOFTWARE 
(entertainment  onlv):  send  SASE  for  price  list. 
ARI  ENTERPRISES,  PC  Box  9121, 
The  Woodlands,  TX  77387-9121 

ASTROLOGY  -  $19.95 

Calculate  charts,  aspects,  compatibility 
between  charts,  6-mo  transits  list.  Save 
charts  to  file.  Autosearch  chart  database 
for  compatible  matches.  On-screen  graphic 
chartwheel,  US  and  World  atlases,  Ideal 
utilitv  for  astrologer  or  dating  service. 
ASTROL93  operates  on  IBM  iv/256K  RAM. 
Send  519.95  plus  $2  S&H  to  John  Halloran,  P.O. 
Box  75713,  Los  Angeles,  CA  90075 

COMMODORE  64  Strategy  Game:  "The  World 
to  Conquer"  2  to  8  players.  Computer 
opponents  optional.  $15,  iPOLYI, 
3819  Plum  Hollow,  Houston,  TX  77059 

BBS  Numbers  $5  BBS  Software!  Order  by 
modem  (300  BAUD)  818-840-8066  or  send  $5  to 
BBS-FUNPAK,  Box  6055,  Burbank,  CA  91510 
Multi-User  Modem  Party  Line:  818-842-3322 

C64/128,  ATARI  8-bit  INTERACTIVE  TEXT 
ADVEN.  "Medieval  1"-A  Magical  Quest.  Disk 
$17.95  ch/m.o.  to:  Spectrum  Visual  Concepts, 
1609  Royal  PL,  Clementon,  NJ  08021 

Just  an  old  fashioned  Slot  Machine  Simulation 
with  full  CGA  graphics  for  IBM  and  dose 
compats.  Price:  $30.  Practical  Software,  Dept.  C, 
2009  Main  St.,  Vincennes,  IN  47591 

Tl  99  FORTRAN!  100  TIMES  FASTER 
than  BASIC.  Structured  if's,  do's,  more! 
Send  $49.95  to:  LGMA  Products, 
Box  210,  RD4,  Coopersburg,  PA  18036 

C64  BASIC  RENUMBERING  DISC  SI4.99  -f  $1 
shipping.  Refundable  within  30  days.  Send  SASE 
for  description.  RW  Software,  P.O.  Box  1515, 
Derry,  NH  03038-1515 

STATISTICS  TUTOR  PACKAGE  **  100  ** 
HANDS*ON*PROGRAMS!  Covering  Univ  Col 
Courses.  $19.95  (671)  734-3405.  Dr.  Wignall, 
Math  Dept..  Univ  of  Guam,  Mangilao,  GU  96923 

f  ATTENTION  T.T99/4AOWNERS 

•  Over  1500  Accessories 
THE  WORLD'S  LARGEST 
COMPUTER  ASSISTANCE  GROUP 

Wow  serving  over  35,000  members  worldwide 

with  the  best  in  lachnical  assistarrce,  service, 

and  products  lor  ffte  Texas  Iristrumant  99/ 4A 

To  become  a  member  and  receive  newsleliers. 

catalog,  technical  assistance  and  rnembersbip 

package,  send  $10.00  lor  a  ONE  Year  Member- 

ship  to:  99/4A  National  Assist  Group 

National  Headquarters 

P.O.  Box  290812 

FL  Lauderdale,  Florida  33329 

Attention  Membership  Division 

For  Information  Call    (305)  583-0467 


HARDWARE 


COMPUTER  COffmOLLED  FISCHERTECHNIK 

ROBOT.  Build  10  different  working  models. 
For  Apple,  IBM,  Commodore,  Free  info.  Valley 
Computers,  613  N.  Idlewild,  Kaukauna.  Wl 
54130  (414)  766-3589.  Dealers  &  Schools  welcome. 

COMMODORE  CUSTOM  CHIPS  for  C64/128 
@  low  prices,  24  hr  delivery  bv  Fed  Express. 
6510/6526-$9,  6567-S15.  658l'-$ll.  PLA/5100- 
$12,  others.  New  Repair  Guide  just  out.  Kasara 
Microsys.  33  Murray  Hill  Dr..  Spring  Valley,  NY 
10977.  800/642-7634,  914/356-3131 

Clock/Calendar  -  8  bit  Commodore  &  Atari. 

School  uses,  home  control,  BBS  autorun. 
CLOCK  PORT  fits  on  your  joystick  cable. 
$45  ea.,  3  for  $120  sent  to:  Dandy  Data 
23000  Stafford  Road.  Tualatin,  OR  97062 


MISCELLANEOUS 


SAFEWARE  INSURES  COMPUTERS  against 
fire,  theft,  it  power  surges  for  as  little  as 
$39,  Call  Safeware,  The  Insurance  Agency  Inc. 
at  800/848-3469,  Columbus,  Ohio. 

Bard's  Tale  I  $8,95.  Bard's  Tale  II  $10.00.  Hint 
Books  include  MAPS,  REFERENCE  SHEETS! 
Elkon  Enterprises,  2914  Pennsylvania 
Wichita  Falls,  Texas  76309 


Save  on  BROWNOUT  protection! 
LINE  CONDITIONER 

keeps  power  constant  during 
voltage  sags  and  power  surges! 

Prevents  damage  and  downtime  on  computers, 
phone  systems,  cash  registers,  etc.  by  providing  full 
voltage  support  when  AC  input  power  varies  up  of 
down.  Maintains  constant  output  of  12CI\/.  Line 
St3bilizer  IS  a  stepped  transformer  system  thai  has 
higher  efficiency  tfian  CVT's  (constant  voltage  trans- 
formers) and  gives  lower  waveform  distortion  at  FAR 
LOWER  COST  Built-in  spike  and  noise  suppression. 
1-Year  warranty! 


1200-Watt,  4  Outlet 

ONLY  S199 


180Q-Watt,  6  Outlet 

ONLY  S259 


Order  toH  free  1-800-682-5021 

IN  ILLINOIS  CALL  1-312-648-2191  OR  MAIL  COUPON 


INDUS-TOOL,  730  W.  Lake  Street 
Dept.  CPT,  Cflicago,  IL  50506 

Enclosed  is  S or  charge  on 

D  MasterCard  ^Visa  D  Expires 

Card  No. 

Send     12Q0-Walt  ®  $199  D  18aO-Watt  @  $259 


Company 

Address    

City.Slafe.Zip  . 
Phono - 
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Looking  for  a  Widget 

for  your 

Otddata  printer  and 

need  it  now? 

Call  Precision! 

Precision  Images  normaOy  stocks 
most  spare  parts  for  your  Okidata 
printer,  from  the  Okimates  to  the 
Pacemarks  including  the  new 
Microline  and  Laserline  series. 
Anything  and  everything  for  your 
Okidata  printer  is  only  a  phone 
call  away.  Precision  Images  is 
"your  direct  connection  to  genu- 
ine Okidala  parts  and  supplies. " 

for  Visa/MasterCard  orders  call: 
1-800-524-8338 


precisian  imsges 


Precision  Images.  Inc. 

P.O  Box  866 

Mahwah.  New  Jersey  07430 
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GET  THE  BEST  OPDS  ON  KfiV  I.OTTKRV 

SIX  NUMBCR  ■  PICK  FOUR  ■  DAILY  CAMK 

■   l^nODUCU  FOUn  COMSHiATIONl  Of 

HUUIIftS  TO  CHOCIE  FROM 
*   ANY  AHOUHT  OF  MALLS  AND  NEJUUR&  CAN 

BE  pnooHAHwec 

>  PRINTS  aUT  PUT  LOTTO  NUHKRS  DRAWF^. 
PAST  COUPUTER  MCKS.  AND  NUUPEA  C«*M 
FBIOjeNCT  LIST 

>  RANDOU  HUUBEH  QEHERArOR  IMCLUOED 


in  H  C-M'lll 


'Window 


^ac|k 
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,  fn:^  ,  JOOWEXFJiWW  *  mWDOW  to  tK>L*L(  Hit 

*  Save  mnD  lDAD  vOUR  wnuDOwt  OM  oriK 

-  PRIMTi  0«  fTAIDARO  DOT  HATRII  FRINTfR 

-  0,0*11  CCH.OA  UTTRtWJTH 
f  TT'EiLlTTCn  AIDOIUF^ICS 

•  nXT«ON  tHl.nt-KtH>HD    IHRIH^  ANO  AOTilTC    TH(H  ITAH*  UITWMAI 

*  ZOOM  FLOT  OUAWOH  AM  IlPUtMO  WPNDO*  AMD  *IXJ"  &«A«IM  AT  TWI 

lAMEmte 

U4  HC-^TiM 


■  LIN» 

•  DRAW 

■  COLOR  tOUAinl 


STOCK  BROKER 


PKOFiTS  clarwtfkh  or 

\OLk  MQSt\  HACK 

tUTiM    OOOD    DUALITV     VQtATr^l    IfiVia    AMD 

UtIHO  Imt  TRAWtQ  inriU  WAL  HIVf  TtJV  FIALT 

HVHTED  tT  ThC  LQwUT  Ffl>CU  AMD  COMVIRTMQ 

TO  CAfM  «|  THC  tliKX  '•il.M  ITS  FtA< 

'    TlChWCAL  Tfc*tJiKq  THAT  WOHKa 

■   BAR  aHAPn  PfllNT'DUTt 

t   ntCCHni  UF  TO  144  STOCKS  0>*  A  Ol\K 
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ACORN  OF  INDIANA,  INC. 


2721  OHIO  STREET 
MICHIGAN  CITY,  in  46360 


i 

219-879-2284 


SHIPPING  AMI  HANDLING.  KT11HI.5&-  COD.'S  ACIEFTED 
%  ISA  A>D  MASTI^R  CARD  ORDERS  ADD  4% 
INDIANA  RES^PF^T^  ADD  5%  SAl.ES  lAX 


WIN 
THE  LOTTO 

With  Your  Computer! 

Forget  random  numbers  (use  a  dartboard  for 
that),  This  program  for  most  home  com- 
puters does  an  actual  analysis  and  com- 
plete probability  study  of  the  past  winning 
numbers.  This  amazing  program  will  quickly 
provide  you  with  all  the  data  you  need  to 
predict  which  numbers  will  likely  come  up 
in  subsequent  drawings.  It's  completely 
menu  driven  so  everyone  can  enjoy  using 
it.  Nearly  all  consistent  lottery  winners  use 
some  kind  of  system  based  on  the  past  win- 
ners. Using  the  real  power  of  your  computer 
gives  you  a  definite  edge.  All  you  do  is  add 
the  latest  winners  each  week  and  the  pro- 
gram does  the  rest  in  seconds.  On  screen  or 
printer  it  shows  hot  and  cold  numbers,  fre- 
quency, groups,  patterns,  sums-of-digits. 
odd/even,  wheels  numbers  and  more. 
No  thick  manual  to  read.  It  even  has  a  built- 
in  tutorial. 

ASK  YOUR  SOFTWARE  DEALER  OR 
i-^^KT]     CALL  OR  WRITE: 

\WM    SOFT-BYTE 

j^mm^^     P.O.  Box  556  F.  Parli 
UH^  Dayton.  Ohio  45405 

^^^  (513)  233-2200 

THE  LOTTO  PROGRAM  is  designed  for  all 
6  &  7  digit  lotto  games  lup  to  49  numbers) 
and  is  sold  worldwide! 
DONT  PLAY  LOTTO  WITHOUT  IV 
FOR    APPLE    &     M/S     DOS     COM- 
PATIBLES (IBM)  JUST  $24.95.  ALSO 
FOR  COMMODORE  64/128.  RADIO 
SHACK  m,  IV  &  COLOR  COMPUTER 
&   ATARI    800/130XE  JUST   J21.95. 
FOR   MACINTOSH    (a   super  version, 
Basic  Req.)  $29.95. 

Add  $1.50  vtilpplng  on  all  order*.  Thank  you! 
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TRY  COMPUTE!  EVERY  MONTH-12  ISSUES— AT 
33%  OFF  THE  COVER  PRICE. 

Mf /Ms 

Street 


City. 


.  State  _ 


..Zip. 

D  I  prefer  24  issues— 2  years— at  $45.00 
□  Bill  Me      n  Check  Enclosed 
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Foreign  and  Canadian,  please  add  $6  (U.S.)  per  year  postage. 
Olfer  subject  to  change  without  notice. 
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COMPUTErs 

FREE  Reader  Information  Service 

Use  these  cards  to  request  FREE  information  about  the  products  ad- 
vertised in  this  issue,  Clearly  print  or  type  your  full  name  and  address. 
Only  one  card  should  be  used  per  person.  Circle  the  numbers  that 
correspond  to  the  key  number  appearing  in  the  advertisers  index. 

Send  in  the  card  and  the  advertisers  W\\\  receive  your  inquiry.  Al- 
though every  effort  is  made  to  insure  that  only  advertisers  wishing  to 
provide  product  information  have  reader  service  numbers,  compute! 
cannot  be  responsible  if  advertisers  do  not  provide  literature  to 
readers. 

Please  use  these  cards  on// for  subscribing  or  for  requesting  product 
information.  Editorial  and  customer  service  inquiries  should  be  ad- 
dressed to:  COMPUTE!,  P,0,  Box  5406,  Greensboro,  NC  27403.  Check 
the  expiration  date  on  the  card  to  insure  proper  handling. 

Use  these  cards  and  this  address  only  for  coMPUTErs  Reader  Infor- 
mation Service.  Do  not  send  with  payment  in  any  form. 
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For  Fastest  Service, 
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(Top  Guns  don't  always  fly  on  air . . .  Some  fly  on  water) 


Wferns^ 


Red  Alert!!  Red  Alert!! 

0800  hours:  Terrorists  attack 

U.S.  naval  base  off  Sicily .. . 

Intelligence  reports  enemy 

missile  corvettes  fleeing 

toward  Libya  . . .  Additional 

enemy  patrol  craft  seen  in 

area . . .  Seek  out  and  destroy 

. . .  Take  no  prisoners . . . 

The  Need  for  Speed  . . . 

Your  search  helicopter  spots 

the  Soviet-built  Nanuchka  II 

missile  corvette  charging 

across  the  "Line  of  Death." 

Foilborne  and  closing  in  at 

50  knots,  you've  got  him  in 

your  sights.  Guns  blazing, 

you  lock-on  and  launch  a 

Harpoon  guided  missile. 

Through  the  water  spouts  of 

his  near  misses,  you  see  him 

explode  i  nto  flames.  Another 

mission  accomplished. 


s  J©5 


■i-i 


"  S  S19a7LFL 
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m 

The  Patrol 
Hydrofoil  Missilecraft. 


So  agile,  enemy  radar 

mistakes  it  tor  low-flying 

aircraft. 


So  fast,  enemy  forces 
have  only  minutes  to  react. 


So  deadly,  there 
is  no  second  chance. 


A  Commanding  Simulation  . . . 

■  Authentic  speed  and  handling  characteristics 
of  three  different  NATO  ally  hydrofoils:  U.S., 
Italian,  and  Israeli. 

■  Advanced  instrumentation  and  weapons  systems 
include:  76  mm  water-cooled  naval  cannon, 
Exocet,  Harpoon  and  Gabriel  guided  missiles, 
rapid  blooming  defensive  chaff,  radar  indicator 
and  damage  control  sensors. 

■  Full  control  of  search  helicopters  and  convoy 
ships. 


I  8  real-life  missions  in  today's  danger  zones  like 

the  Persian  Gulf,  the  Eastern  Mediterranean 

and  the  Gulf  of  Sidra. 

I  Time  compression  speedsaction  to  128x  normal. 
I  Comprehensive  operations  manual  includes 

mission  briefings  and  enemy  vessel  spotter 

cards. 
I  Technical  consultant:  Boeing  Marine  Systems. 


How  to  order:  visit  your  rctaiJer,  or  call  aOO-245«t525  for  direct  VISA  er  Mastercard  orders  |ln  CA  call  800-S62-1112). 

Tlie  direct  price  is  S29.95  (or  the  Commodore  version  and  S34.95  for  the  Apple  11  version.  To  buy  by  rnail.  send  ctieck  or  money  order 
to  Electronic  Arts  Direct  Sales,  P.O.  Box7S30,San  Mateo.  CA  94403.  Add  S3  (or  shipping  and  handling  (S5  Canadian).  Please  allow  4 
weeks  tor  del  ivery.  Screen  shots  representees  version.  Others  may  vary.  Commodore  and  C64are  registered  trademarks  otComrnodore 
Electronics  Limited.  Apple  II  is  a  registered  trademark  of  Apple  Computer.  Inc.  Lucastiim  Games,  PHryl  Pegasus,  and  all  elements  of 
the  game  (antasy:  '  t,  ©19B7  Lucasnim  Ltd.  |L.F.L.|.  All  rights  reserveti.  Electronic  Arts,  authorized  user. 


ELECTRONIC  ARTS" 


From  the  sophisticated  realism,  detail,  and  intellectual 
8S4.    stimulation  of  Flight  Simulator...  -^   ■ 


See  Your  Dealer,  For  additional  product  ordering  information 
or  the  name  of  the  dealer  nearest  you,  call  (800)  637-  4983.    ■ 

^  tlon 

713  Edgebrook  Drive 
Champaign  IL61S20 

!  (217)359-8482Telei(:20699S 

ORDER  LINE:  (800)  637-4983 

{excepi  m  Illinois.  Alaska  and  Hawaii) 

Open  7  AM  to  9  PM  Central  Time 


